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Large amounts of data collected during experiments or 
produced as outputs of programs that simulate systems, 
usually need further treatment in order to complete the 
research task. One step of the data analysis process is 
the manipulation of the data. 

The data, even when stored in a computer, can be con- 
sidered as inert if it cannot be manipulated. Manipulation 
may be considered any appropriate arrangement or transfor- 
mation of a logical data matrix composed by the data. 

The inert data matrix is activated and becom.es an 
"Active Matrix" by the developed system IDAM.AN (Interactive 
DAta MANager) . It is expected that this system, based on the 
idea of Dr. Daniel Guinier, fulfills the demands for such 
manipulations. Compared to existing similar alternative 
systems, this system possesses two particular merits: No 

specific language is required; and the separation of data 
manipulation task from acquisition and future calculus grants 
to the system a high power of expandability. 
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GENERAL DESCRIPTION OF IDAPmN 



I . 

A. INTRODUCTION 

Research in many scientific fields is usually involved 
with such a large amount of data that manipulation becomes 
difficult, time consuming and error prone. A large amount 
of data requires auxilliary storage such as a disk for backup 
and data processing, while the efficiency required calls 
for direct access organization of the data file. The accom- 
plishment of such a task requires several considerations. 

The first consideration is availability of the data. 

The sources of data are either application programs in several 
areas such as language analysis, biology [Refs. 1 and 2], 
simulation, etc., or observations and measurements during 
experiments. The data are either readily available for 
manipulation or must be inserted into the system by the user 
via the keyboard. 

The second consideration is the nature of manipulation 
of the data that has to be performed after it is available in 
the machine. The provided-by- the-system manipulation ability 
has to be such that the manipulated data will be ready for 
the next of the process, namely the mathematical model analysis, 
graphics, or statistical calculus. The system must also be 
capable of covering as many cases as possible. The data must 
be stored in an organized virtual structure, e.g., easily 
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realized by the user logical table or rnatrix on random mass 
storage . 

The above considerations call for a computer m.ethodology 
that gives to the system DATA-USER-DATA manager a high level 
of interactivity, and at the end of the fourth step (Fig. 1) 
maximum services with minimum user activity. The data must 
be organized by the user so that it can be easily referred 
to, and manipulated. The creation of such an organization 
of the data can be called a "header" of the data matrix. 

B. CONCEPT OF THE INTERACTIVE DATA MANAGER, IDAMAN 

To perform a complete data processing cycle, the Inter- 
active Data Manager, IDAMAN, supports two kinds of functions 

• Creation of a header. 

• Data manipulation according to the user defined header. 

The user is not involved with the manipulation of the 

data but rather only assigns what manipulation is desired, 
by creating the header of the data matrix. At the same time 
the system supervises the creation of the appropriate files 
that are transparent to the user. 

1 . Creation of the Header 

An interactive-informative communication between 
computer and user creates the header. The created header 
contains information regarding the columns and the rows of 
the data matrix. Such information causes the manipulation 
of the data. The header's data are integers (e.g., number 
of columns, number of rows) , reals {e.g., actual or imposed 
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by the user boundary values (extrema) for each column) and 
characters (e.g., names of the variables, nam^es of sets of 
observations (rows) ) . 

Several data of the header are stored in the mass 
storage in a sequential access file for future use. 

2 . Manipulation of the Data 

The data to be manipulated are stored in mass storage 
in direct access organization files and in the logical form 
of a matrix with dimension NCOL*NROW, where NROW is the 
number of rows (or observations or lines) and NCOL is the 
number of columns (or parameters) . 

The manipulation, a transparent operation of the sys- 
tem, is executed during the creation of the header and at 
the same time that each manipulation is assigned. The manipu- 
lation of the data causes the creation of a new direct access 
file in the secondary storage whenever it is considered 
necessary. The same file is used in the opposite case for 
space economy reasons . 

Manipulation functions executed by the IDAi'-IAN are: 
Addition or suppression of lines or columns. 

Rearrangement of the order of lines or columns (ranking) . 
Transformation, single or multipass, is performed by 
analysis of a full input character string (representing 
the transformation) conversion from infix to postfix 
notation, and evaluation using push-down stack. The 
assigned transformations may include functions with 
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arguments such as the nurrx>er of columns (actually the 
value corresponding to column will be used as an argument) , 
reals or integers, and the number of columns (in that 
case the value corresponding to the column number is 
taken to be constant) . 

• Sorting column guides, single or multiple, where suc- 
cessive sortings are executed as a function of successive 
columns . 

• Searching for a particular value or a missing value 
involving the entire data matrix or columns and/or rows 
assigned by the user. 

• Randomization of row order to eliminate problems created 
due to collection time effect. 

• Merging of two f iles--either row-row (one over the 
other) , or column-column (one beside the other) . 

• Display of the data matrix with user defined format via 
the keyboard. 

As soon as the inert data are involved in a manipulation 
process, IDAMAN can be considered as activated. The data 
matrix with its assigned header can be called an "ACTIVE 
DATA MATRIX." 



Fig. 2 illustrates the comparison of three different 
concepts: a) an interactive and conversational system for 

data analysis applied to biology [Refs. 1 and 2]; (b) the 

IDA from SPSS (Interactive Data Analysis from the Software, 
Package for Social Sciences); and (c) the presented system, 

I DAMAN . 
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Fig. 2. Comparison of Several Conce[)fs of Interactive 
Data Analysis Systems 





C. CONCEPTUAL PROPERTIES OF THE DEVELOPED SYSTEM IDA.'-LYN 

The developed system IDAMAN has the following properties: 

• Universality of the source language: structured FORTRAN 

77 is used for the implementation of the system. 

• Portability: Granted by the use of FORTP^AN 77 and the 

organization of the program. The required central memory 
size can even be satisfied by a microcomputer with module 
overlay . 

• Simplicity of use: No special knowledge or language is 

required for the use of the system. 

All operations like creation and/or saving the data 
on files, are transparent to the user. Display or 
printing the data contained on these files (header or 
data file) is very simple and does not need any special 
consideration about formats. 

D. EXISTING SIMILAR SOFTWARE PACKAGES FOR DATA ANALYSIS 
Existing known packages providing the same task can be 

divided into two categories: 

Packages of subroutines for specific calculations with- 
out system data manipulation; such systems are the 
HARWELL Library (1981) from the United Kingdom Energy 
Authority, the IMSL Library (1982) , and the System 360 
Subroutines Library (1968). 

Packages of subroutines for calculations with the 
system of data manipulation; such systems are the Bio- 
MeDical Package (BMDP, 1981) , and the Statistical 
Package for the Social Sciences (SPSS, 1983) . 
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BMDP and SPSS are complete statistical packages. The 
first one is produced by UCLA (University of California at 
Los Angeles) and is oriented toward Bio-medical statistical 
applications. The second is oriented to social science 
statistical applications. These two packages have a wide 
range of applications in statistics but are not interactive 
and use their own conventional languages. 

In the SPSS series in data analysis, IDA is presented as 
an interactive data analysis and forecasting system (1982) . 

The difference between the concepts of IDA and IDAl-lAN is 
that in IDA, the data are manipulated and elaborated by the 
same program (data summarization, regression, time-series 
analysis, etc.), while in IDAMAN, only manipulation is exe- 
cuted. IDAMAN is strictly a data manipulation system. The 
intention of the design was to separate the two tasks--con- 
sidering them as different. In this way, modularization is 
obtained. The next step of the general task "data analysis" 
can be executed separately by another module. The data, after 
the manipulation, are used by independent or interdependent 
modules. Such modules can provide one, two or multivariable 
analysis (mathematical and/or statistical) involving one or 
several samples or/and series of samples. The IDAiMAN pro- 
vides the fle.xibility of executing the same data elaborations 
with the same data in different forms (manipulations) . 

The calculation subroutines, described by several similar 
packages, can be integrated by the process of a calling program 
that reads the data of the header created by the IDAMAN. 
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MATERIAL 



E . 

IDAMAN was developed at the Department of Computer Science 
at the Naval Postgraduate School, Monterey, California on the 
VAXll/780 under the VMS operating system. The disposable 
virtual memory is 32 Megabytes and the direct-access memory 
is the user's disk RM05 (256 Megabytes) . 

FORTRAN 77 on VAXll permits the use of the facilities 
given to a 32 bit or to a 16 bit computer (PDPll or LSIll or 
any other 16 bit microcomputer precision for integer and real 
numbers, e.g., integers on 2 bytes or on 4 bytes) . 

The modularity of the program implementing the IDAMAN 
permits a transportability to a lower memory capacity micro- 
computer (16 bit or 16 bit-like microcomputer) . 

F. OVERVIEW OF FUNCTIONAL CAPABILITIES OF IDAMAN 

Column mnemonics: used to assign mnemonic names to 

columns (parameters or variables) . 

Row mnemonics: used to assign mnemonic names to 

individual rows and/or sets (or subsets) or rows. In 
this way the data can be retrieved by index (the set 
number) or by the row or set mnemonic name. An example 
of the usefulness of this operation is the comparison 
of means of sets or the tracing of groups of data. 

Tracing extrema: used to permit the user to change 

the extrema values by giving a "window" for tracing. 

With this function, the system does not need additional 
information about scales if a tracing application program 
is required. 
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Sorting and multi-sorting: used to reorganize the data 

according to column guides by sorting successively in 
increasing order to generate sets and subsets of rows 
(observations) . 

Data retrieval: used to find one or several values 

inside specific fields (column(s) or row(s)) or a 
specific "gold" number that corresponds to missing values. 
The process of retrieval is applied in the full matrix 
or in particular parts of it, given by the user. The 
data to be retrieved can be: 

Identified as erroneous data. 

Missing data which are referenced as a "gold" 
value internal to the system or changed by the user 
to represent a pseudo-improbable value. 

Listed, and the associated row, column and index 
numbers are given to the user. This information 
will be useful for eventual corrections or localiza- 
tion on the listing. 

Rearrangement: used to eliminate the column guides used 

for multisorting or to partition the data matrix for 
particular elaborations (e.g., multiple partial 
regression) . 

Transformations: used to restore some statistical 

properties or to perform directly mathematical operations 
involving data of the matrix and/or numbers. 

Randomization: used to burst the original data to 

avoid effects of time or preordering. 
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• Compression: used to suppress some data for future 

calculations (logical suppression) without physical 
suppression of the data. This operation can be done 
using a special compressed binary file [Refs. 3 and 4] . 

• Input/Output: transparent to the user and can be 

directed to the desired device or file. 

• Files generation: operations also transparent and 

executed by assignment of a single key (number of 
alphanumeric) . 

• Display of the header's information: used to facilitate 
the use of the program and the creation of the header. 

• Display the data: used to display, on the terminal, the 

manipulated data being on direct access files in secondary 
memory, by a simple command and in format defined by 

the user, if any change of the normal format is required 
(e.g., nnnnnn.nn gives FORTRAN format F9.2). 

• Merging: Files can be merged in a row-row (one over 

the other) or column-column (one aside the other) sense 
without any particular user involvement. 

G. DESIGN 

1 . Modular Structure of IDAMAN 

Figs. 3 and 4 present the structure of IDAMAN, showing 
all the subroutines used and the overlay form. The source 
code of the system is presented in Appendix A. 

2 . Brief Description of the Subroutines 

ANADIS : Analyzes strings used to assign numbers of columns 

or rows that have to be displayed, retrieved or 
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Fig. 3. Modular Structure of 1 D/iMAN 
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rearranged (e.g., 1,4, 6:9, 3 assigns successive 
numbers 1 4 6 7 8 9 3) 


ASBYMN; 


Permits the assignment of columns or rows by their 
mnemonic names. 


CDISP: 


Displays on the screen information about the columns 
of the header. 


COLINF: 


Presents the selection table of the column informa- 
tion, and calls the appropriate subroutine regarding 
the information to be assigned by the user. 


COLMOD: 


Modifies the information about the columns. 


COLNAM: 


Assigns mnemonic names to columns. 


COMCOL : 


Merges (combines) two data files and their headers 
in the column- column (one over the other) sense. 


COMP : 


Computes the values of functions used in the user 
assigned expressions for transformations. 


COMPOl : 


Gets or sets the binary value 0 or 1 in a compressed 
binary matri.x NROW*NCOL for any I's and J's. 


COMROW : 


Merges (combines) two data files and their headers 
in the row-row (one over the other) sense. 


CONV: 


Converts (analyzes) the expression string assigned 
for the transformation in an infix notation expres- 
sion. This string is composed from character defined 
numbers, letters, delimiters, etc. It is decomposed 
to the several elements that constitute the infi.x 
expression. It calls the subroutines POSTF and EVAL 

for further processing of the expression. It stores 
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CRANK : 



CREATE; 



CRINFO: 



DISDAT: 



DISPLA: 



the result of the evaluation on the next rightmost 
end of the data matr ix--creat ing a new column. 

Assigns column ranking by column number or column 
mnemonic nam.es. The assignment of the columns can 
be done as in the previous paragraph and the same 
subroutines are used. After the assignment, it calls 
the corresponding subroutine (RANKl or RANK2) for 
ranking of columns. 

Creates a new header. It opens the sequential file 
on which information of the created header will be 
stored and passes control of the program to the 
subroutine CRINFO. At the end of the creation, it 
calls WRITER for recording of information, which 
resides in the main memory, to the opened file in 
mass storage. 

Determines if either column or row information is 
to be assigned next. It calls the appropriate 
subroutine COLINF or ROWINF . 

Displays any or all user assigned (columns, rows) 
parts of the data file. 

Displays on the CRT the information related to the 
columns and rows of a previously defined header. It 
opens the sequential file on which information is 
stored, calls READER which reads the information and 
stores it in the main memory and then calls CDISP 
and RDISP which display information about columns 
and rows. 
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EXT REM; 


Assigns tracing extreir.a. 


EXSHl : 


Executes internal and address calculation sorts 
using Shell's method to rank elem.ents in increasing 
order, modified for address calculations. 


FICH : 


Opens at run time, direct access unformatted or 
sequential files named 'FORnnn.DAT'. 


FINDMM: 


Evaluates the minimum and maximum value of each 
column of the data matrix. 


FORM : 


Permits the user to determine the format of the data 
that will be displayed. 


ENSORT : 


Permits Input/Output modifications or assignments 
for physical Input and/or Output, and/or Print for 
Devices or Files within a FORTRAN Program or 
Subroutine . 


EVAL: 


Evaluates (computes the result) the postfix expression 


MERGE: 


Merges two existing headers. It opens the two 
files to be merged and calls COMCOL or COMROW for 
the merging of the two files in the column-column 
(one aside the other) sense or row-row (one over 
the other) sense. 


MODIFY : 


Modifies an existing header. It opens the file on 
which information is stored, calls READER to pass 
it from the secondary to the main memory and calls 
the appropriate subroutine for the modification 
(COLMOD for column or ROWMOD for row) which actually 
executes the modification. At the end, it restores 
the modified information by calling WRITER. 
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MULSOR: 


Assigns the guides (column numbers or column mnemonic 
names) that will be used for the multiple sorting. 

It calls the subroutine ANADIS which analyzes the 
string of column numbers and characters and/or 

":") assigned by the user via the terminal and iso- 
lates the column numbers when the assignment is 
done by column numbers. If the assignment is done 
by mnemonic names, it calls the subroutine ASBYMN 
which stores the names in the appropriate array. 

In both cases it calls the appropriate subroutine 
(REARl or REAR2) for further processing. 


PFIX; 


Converts the infix expression to the corresponding 
postfix notation. 


RANDOM: 


Randomizes the data matrix. 


RANK: 


Rearranges the columns of the data matri.x according 
to the column numbers assigned by the user . 


RANKl : 


Rearranges the columns of the data matrix according 
to the column numbers assigned by the user . 


RANK 2 : 


Rearranges the columns of the data matrix according 
to the column mnemonic names. It calls TRANS to 
transform the column name to the column number. 


RDISP: 


Displays on the screen information about the rows 
of the header. 


READER: 


Records information regarding the header on a 
sequential file. 


REAR: 


Multisorts the data matrix. It opens the direct- 
access file of data, and consequently calls the 
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subroutine EXTREE for the soroing. It rearranges che 
data according to the final inverted relative 
addresses without using extra file for temporary 
storage of the data. 


REARl : 


Used to continue the process of multi-sorting 
column numbers by calling the subroutine REAR. 


REAR2 : 


It functions like REARl for column assignment. 

It calls TRANS to transform columji names to column 
numbers . 


REJECT; 


Rejects rows not involved in particular computations 
("logical suppression"); these rows are not physically 
suppressed but are just ignored when the calculation 
is executed. The row to be rejected is given the 
binary value of zero while the retained row is given 
the binary value of one. In this way, bit words are 
converted to decimal. The purpose of the method is 
to save space and time. 


REORD: 


. Reorders internally (without use of a temporary file) 
the rows of the data file after multi-sorting (via 
the produced invert relative addresses) . 


ROWINF: 


This corresponds to the previous subroutine for 
rows . 


ROWMOD: 


Modifies information about the rows of the header. 


ROWNAM: 


Assigns row mnemonics. 


ROWS UP: 


Presents the prompts for the row suppression 
assignment, permits the assignment of the suppression 
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row nunibers which are stored in an array, and calls 
the subroutine SUP that executes the suppression. 


SUP: 


It suppresses the rows of data file assigned by the 
previous subroutine. 


SUPSET: 


Suppresses the rows of the data matrix that corres- 
pond to an assigned set of rows with a common 
mnemonic name. 


SEEDAT: 


Retrieves user defined data or searches for missing 
values from the data matrix. 


TESTER: 


Tests if a mnemonic name has been assigned as a 
column mnemonic name. 


TRANS : 


Transforms a column mnemonic name to a column 
number . 


TRSFRM: 


Presents the table of the available functions that 
can be used for transformations and calls the sub- 
routine CONV that calculates the assigned expression 


WRITER: 


Writes the information regarding the header on a 
sequential file. 
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II . 



METHODS USED FOR THE IMPLEMENTATION 



A. SORTING 

1 . Introduction 

A large amount of data may need to be sorted. In 
order to avoid intermediate manipulations in mass memory, a 
study of the most efficient method, in terms of timing, has 
been carried out. 

If the data matrix is stored on a direct-access file 
on a disk and not in central memory (which is the general 
case) , a sort by address calculation avoids intermediate 
exchanges between central and secondary memory. This results 
in time burdening of the method [Ref. 5] . 

When data are preordered, methods using binary trees 
must be avoided because they tend to "bubble" [Refs. 6 and 7]. 

When multi-sorting is needed, methods requiring 
departure boundaries as the integer result of a division by 
two (dihotomic methods) , are inappropr iate--gi ving wrong 
results [Ref . 8 ] . 

Guinier (1980 [Ref. 5] has shown that the manipulation 
of numbers corresponding to records stored in a random access 
RK05 disk file under the RTll operating system considerably 
increases the elapsed time by a factor of 40 if MacLarren's 
method is used and more than 80 if Singleton's method is 
used. It is necessary to’transfer the records of the file 
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in an image array of the column to sort and to have the 
ordered elements in the form of addresses in order to a%-oid 
manipulations of the full records during the sort. 

2 . Binary Tree Sorts (Monkey Puzzle, Hoare ' s Quicksort) 

In the binary tree sorts, elements to be sorted and 
contained, in a corresponding array, are scanned and placed 
at the appropriate node of the created binary tree. The 
relative position of the node on which an element will be 
placed in the tree is dependent on a comparison of the size 
of each element with the elements already existing on the 
tree. The left or right branch is selected, respectively, if 
the element is larger or smaller. 

If the original data are randomized: 

• The number of nodes n at a given level 1 is n = 2**1. 

• The depth of the resulting binary tree is d = log 2(n+l) - 1. 

• The number of comparisons to place the node at level 1 
is 1+1 and the total number of comparisons is c with 

d + cl <= c <= cl and cl = SUM 1 = 1 to d-1 ' (1 + 1) *2**1} . 

It can be shown that c is approximately equal to 
n*log 2 (n) . 

If the original data are preordered: 

• The resulting tree appears like a single branch tree 

and the total number of comparisons is c = 2+3+4 + ... + n. 
That is, c = n*{n+l)/2 - 1 which is approximately n*n/2. 

• The .method tends to "bubble", with the number of compari- 
sons c = (n-1) **2 = n**2 - 2 *n + l--approximately equal to 
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n*n. An extra array is needed but the elements are not 
manipulated. Hibbard (1963) [Ref. 9] suggests the use 
of Shell's method (Shell (1959)) as an alternative m.ethod 
not sensitive to the preordering. In the case of dealing 
with preordered data, a good strategy is to randomize 
them with a single pass before sorting and without 
manipulation of the file records, using instead randomi- 
zation of the addresses by which the data will be read. 
This is done by the randomization function of the IDAM.AN. 

3 . Shell ' s Method 

This method uses the principle of interchange by 
adjacent pairs. In contrast with the bubble sort, it moves 
list entries at most one position at a time, dividing the 
original list of n entries into two parts. This method can 
compare entries that are two positions apart. 

This method is insensitive to preordering. But an 
ambiguity remains in the calculation of m = integer [m/2] 
and cannot be used for multi-sorting. 

4 . Singleton's Method 

Singleton's method is an extension of Hoare ' s "Quick- 
sort". Because a tree method gives bad results when the 
items are presorted or take a constant value, the problem 
has been changed to an exchange of elements when they are 
equal to or greater than a temporary value T in one set of 
values and less than T in the other set. This operation gives 
a better split of the original set of items. 
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The median set is generally missing. Therefore, 
comparison with the temporary value and the median of the 
values of X(i) is avoided. X([i+j]/2) and X(j) are used for 
T. This gives a better estimation of the median eleme.nt 
than a single value. 

In searching for two elements to exchange, the data- 
almost-sorted X(i) and X(j) are used as boundary values. 

X(i) <= T <= X(j) and the indexes are compared after perform- 
ing the exchange. 

The lower and the upper sets must have appro.ximately 
the same size to result in efficient performance. 

Speed of the method is greatest for less than 11 
items when completing the sort by short sequences using 
Shell's method of sorting by interchange of adjacent pairs 
[Refs . 8 and 9 ] . 

For N elements, the dimension of the lower and upper 
sets (IL() and IU()) must be k with N = 2**{k-l) - 1. 

5 . Evaluation of Selected Sort Methods in Terms of 

Performance 

Comparisons between the "monkey puzzle" binary tree. 
Shell's and Singleton's sorting methods can be obtained from 
the following data which represent a mean of ten tests, in 
order to reduce the effect of the activity of the VAXll . 
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For randomized data: 



including address calculation, on 
VAXll-VMS . 



n 


Shell 


Tree 




Singleton 


1,000 


0.4 s 


0.2 


s 


0 . 2 


s 


2,000 


1.1 s 


0 . 6 


s 


0 . 4 


s 


3,000 


2.1 s 


1.0 


s 


0 . 6 


s 


5,000 


3.8s 


2.0 


s 


0.9 


s 


10,000 


7.2 s 


4 . 2 


s 


1.9 


s 


preordered data: 


including address 
VAXll-VMS . 


calculation, on 




n 


Shell 


Tree 




Singleton 


1,000 


0.2 s 


15.1 s 




0 . 1 


s 


2,000 


0.5 s 


44.8s 




0 . 2 


s 


3,000 


1.1 s 


117.8 s 


( 1.9 


mn ) 0.3 


s 


5,000 


1.9 s 


310.1 s 


( 5.1 


mn) 0 . 5 


s 


10,000 


4.8 s 


1,072 .7 s 


(17.9 


mn) 1.0 


s 



When data are randomized between Tree's and Shell's 
methods, Berztiss (1975) [Ref. 10] gives a ratio of 1.3 in 
favor of Tree's on an Algol version running on a CDC 1604A. 
The ratio of the presented results is greater than this value 
if the data are randomized. Between Tree's and Singleton's 
methods, the ratio is 2 and the velocity is 5 times better 
on theVAXll/780 than the results given by Singleton on the 
Burroughs B5500 . 

When data are preordered, degeneration of Tree's 
method on a bubble appears clearly. The results of Shell's 
and Singleton's methods are stable and twice as good. 
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Singleton's method is 20 times faster on the VAXll/780 
under Vi>lS than on a PDPll/05 under RTll . Guinier ( 19 80) 
gives 4 s. for 1000 items [Ref. 10] . 

The methoci sel ect ed by IDAM?VN are Shell's method for 
original single sorting and the binary tree sort for multi- 
sorting [Ref. 11] . 

B. MULTIPLE SORTING 
1 . Introduction 

A system, via multiple sorting, executes a repeated 
sorting of the data matrix according to successive column 
numbers, or column names assigned by the user via the terminal. 

This function permits nested sorting of the data matrix. 
The concept of nested sorting is clearly illustrated by the 
following example. Suppose we have the data matrix as in 
Fig. 5(a) and we repeatedly sort it according to the columns 
4, 3, 2 and 1. The resultant matrix is shown in Fig. 5(e) . 

In this matrix the first four rows of column 1 have the same 
value. The result of the repeated sorting is that the corres- 
ponding first four rows of column 2 (which is nested to column 
1 according to the assigned sorting sequence 4, 3, 2, 1) are 

sorted. Likewise, in colume 3 the rows 2, 3 and 4 have the 

same value and the result of the repeated sorting is that in 
column 4 the avlues in rows 2, 3 and 4 are sorted. 

The concept is further clarified in Fig. 6 where direct 
sorting of the data matrix is presented based on column 1 
(the last column of the sequence of the repeated sorting) . 
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Fig. 5. Nested Sorting of the Data Matrix 
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Fig. 6. Single Sorting 



The result is 


a raatri.x sorted in column 1. 


But the nested 


sorting 


of the previous case 


does not exist 






This 


type of sorting 


is useful in cases where some 


variables of 


the active data 


matrix are not 


quantitative 


( continuous ) 


but descriptive 


(discrete) and 


are attached to 


classes 


or subclasses of data. Successive 


sorting involving 


such variables organizes the 


matrix in a corresponding order 


i f the 


collection of data is 


not presorted 


by function of th^ 


clas ses 


or subclasses (Fig. 


7) . 
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Fig. 7. Set of Data Containing Two Classes and 
Three Subclasses 
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Principle 



2 . 

Operation of the repeated sorting of the data matrix 
is executed in two phases . The first phase sorts the data 
matrix consecutively according to the assigned sequence of 
coliimn numbers or names, while the second rearranges the rows 
of the initial matrix according to the result of the repeated 
sortings . 

a. Phase One 

The virtual process by which the repeated sorting 
takes place is the following (Fig. 8) ; 

(1) Read the first column according to which the data 
must be sorted. Store the data of this column in an 
array . 

(2) Sort the array and get the invert relative addresses 
in an array (NO) . 

(3) Read the inverted relative addresses. (This means 
that the rows are rearranged before the next sorting.) 

(4) Repeat until all the sorting guides have been used. 

In order to avoid rearranging and thus to save process 
time and space utilized, the following method is used 
(Fig. 9) . 

A one dimension array (NOR) is used to store the 
relative addresses in which the data file will be read and 
remains unchanged during the whole process . 

(1) Initialize the NOR. 

(2) Read the first column in which storing will take place. 
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Fig. 8. Virtual Process of Repeating Sorting 



1 

2 

3 

4 

5 

6 

7 

8 

1 

2 

3 

5 

6 

3 



1 



2 



3 




Fig. 9. Real Process of Repeating Sorting 
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Fig. 9. (CONTINUED) 
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(3) Sort the column and get the inverted relative addresses 
(NO) . 

(4) Invert the NOR according the NO. 

(5) Repeat until all sorting guides have been used. 

b. Phase Two 

The second phase is the rearranging of the data 
matrix according to the last inverted relative addresses , 
using the same external file. A pictorial presentation of 
the algorithm used is shown in Fig. 10. 

The reasoning of this algorithm is the following; 

In Fig. 10 the array containing the inverted relative addresses 
is noted as NOR. The first pointer of NORl is pointing to 
row number 6. This means that row 6 must move to the first 
relative address of the matrix. The contents of this address 
however must be saved. For this reason a mutual exchange 
between the first and sixth row of the matrix is executed. In 
this way the first row already contains the appropriate values. 
A consequence of this exchange is that the first row which 
should move to the fourth row of the matrix, is now moved to 
the sixth position. The fourth relative address therefore of 
NOR must change from 1 to 6 . The algorithm searches the NOR 
from 1 to 8 until it locates the relative address 1, which 
exchanges with the relative address 6. 

Similarly, in the second step, column 3 of the 
matrix must move to the second relative address. Therefore 
a mutual exchange between rows 2 and 3 takes place. In the 
NOR now, a search takes place until the relative address 2 
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Rearranging of the Rows of Data Matrix According 
to the Inverse Relative Addresses 




is located. This occurs in the eighth position and therefore 
the number 3 is placed at the eighth position. The same 
process is repeated until all the rows of the data matrix 
are rearranged according to the inverted relative addresses 
(NOR) . 

The choice of sorting method must be made so that 
the expected result of the repeated sorting is achieved. In 
this case each set of data to be sorted (the data of a column) 
is not independent but rather is bound with the data of the 
other columns of the matrix. Whenever a duplication of values 
appears in the column to be sorted, these values must not be 
treated equally since their bound with the values of the neigh- 
boring columns differentiates them. In order to keep the order 
of the neighboring columns unaltered, the equivaled entries 
of the matrix must maintain their order after sorting. The 
following example clarifies this concept. Suppose that v;e 
have the matrix (a) and we repeatedly sort it according to 



0 13 

0 2 2 
0 12 
111 
10 2 

(a) 



111 
0 2 2 
0 12 
10 2 
0 13 

(b) 



10 2 
oil 
0 12 
113 
0 2 2 

(c) 



0 11 
0 12 
0 2 2 
10 2 
113 

(d) 



columns 3, 2, 1, considering the sequence of the duplicate 

values in each column. The resultant matrix in Fig. 11 has 
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the desired property. Repeating the same sorting but not 
considering the sequence of the duplicate values, the result 
is different, as illustrated below: 



0 13 



111 102 



0 13 



0 2 2 



1 0 2 0 1 2 



0 2 2 



0 1 2 0 2 2 



111 012 



111 012 



0 13 



111 



10 2 



0 1 3 0 2 2 



10 2 



(a) 



(b) 



(c) 



(d) 



The above consideration imposes limitations in 
the selection of the sorting method to be used. Considering 
only the speed and the memory space consumed in the method 
selecting process is not sufficient. The method selected 
must also maintain the existing order of the equivaled ele- 
ments. Such a method is the tree sort. 



C. TRANSFORMATIONS 
1 . Introduct ion 

A more valid analysis of row statistical data usually 
requires a series of transformations in order to change the 
scale of the measurements. 

Initially, a test of normality of the data is executed 
to confirm if a parametric method of statistical analysis can 
be used. If the data to be analyzed are non-normal, normality 
can be obtained by applying appropriate transformations on 
them [Ref . 12 ] . 
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A transformation also can be used to equalize the 
variances of the sample. 

a. Fundamental Transformations 

The most common transformations used for the 
purposes mentioned above are the following. 

( 1) Logarithmic Transformation (Neperian and 

Common) . 



X' = Log{X) for X > 0 or 
X’ = Log (X+C) for (X+C) > 0 



If considerable heterogeneity in numbers is 
present, the variance is often found to be correlated with 
the mean level on a square root scale, and may only be stabi- 
lized if transformation is made to the logarithmic scale 
[Ref. 13]. 

(2) The Inverse Sine or Arcsine Transformation. 



X' = Sin ^(SQRT(X)) = Arcsin (SQRT ( X) ) if 0. <= X <= 1. 



This transformation permits an equalization 
of variances when the data are proportions or ratios. 

( 3) The Square Root Transformation. 



X' = SQRT(X) if X >= 0 
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This transformation is used when the vari- 



ances of the samples are approximiately proportional to their 
mean, or when the data follow the Poisson distribution. 

( 4 ) The Inverse Transformation . 

X' = 1/X if X is different than zero 

This transformation is used to equalize the 
variances whenever they are approximately proportional to 
X , X , . . . , (x: mean) . 

( 5) The Inverse Hyperbolic Sine or Arcsine 
Hyperbolic Transformation . 

X' = Sinh“^ (SQRT(X) ) = Arcsine ( SQRT ( X) ) 

where 

Arcsine (Z) = Log ( | Z | + Z*Z + 1) 

( 6 ) Exponentiation at Tth Transformation . 

T 

X' = X 

This transformation is suggested by Snedecor 
and Cohran (1967) for variance analysis when there is no 
additivity of variances [Ref. 14] . 

b. Complex Transformations 

Although the above transformations are the most 
commonly used, the system provides an ability for any kind of 



transformation assigned by the user in the form of an ex- 
pression via the keyboard. In this way, not only is a trans- 
formation of the column obtained, but calculations at run time 
involving intrinsic functions, arithmetic operators, con- 
stants (integers or reals) and data contained in the data 
matrix, can be performed according to user assigned mathemati- 
cal expression. Examples of such expressions are : 

• SQRT[7]/[5] • (LOG[10]/2) ^2 

[9] + 3.14 

• SIN[5] - (-COS[3])"3 

The number of the column must be enclosed in 
brackets in order to be identified, while the symbol is 

used for the operation of exponentiation to avoid use of two 
characters as an operator. 

The value of each assigned transformation is 
considered as a new column or parameter and is placed at the 
rightmost of the columns--increasing by one the number of 
columns of the data matrix. 

2 . Pri nciple 

a. Breakdown of the Expression in Parts 

The inserted expression is read as a unique 
character string and is broken down into the following kinds 
of characters or character strings: 

Functions and corresponding column number (e.g., 

TAN [ 2 ] ) 

• Column number (e.g., [5]) 
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Real number or inceger 
• All the above with negative signs 

Operators (+, *, /, ") 

. " ( " 



For example, the expression ( COS [ 3 ] +2 . 7 ) / ( - [ 5 ] ) "2- 8 
is broken down as follows : 

( 

COS [3] 

+ 

2 . 7 
) 

/ 

( 

- [5] 

2 

8 

In this format the elements constitute an infix 
notation format. After the breakdown, the elements are 
stored in a two dimensional one character array INF. Three 
one dimension one character arrays FUN, NUM and CONS are used 
for temporary storage of the functions with their corresponding 
column number arguments, column numbers, and constants. 

Three flags--TEST, MARK and INDEX--are used to signal the 
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existence of a negative value. This negative value is iden- 
tified whenever a character follows an "(" character. 

The variable BR is used to temporarily store a or "]" 

character which, in combination with the flags, permits a 
column number to indicate that the datum of the value will 
be used in the expression or that the value is an argument of 
a function. 

b. Conversion from Infix to Postfix Notation 

The method used for evaluation of the expression 
requires the transformation of the infix expression (which 
is the normal form used by mathematics) into postfix notation. 

A postfix notation is a rearrangement of the 
characters of the infix expression to remove the ambiguity 
of which operator is performed first — using parentheses to 
indicate the priority of the operators. For example, the 
expression a+b*c is ambiguous since it is not clear if the 
addition or the multiplication has to be performed first. 

This ambiguity requires the use of parentheses to specify the 
operation to be performed first. 

In a postfix notation, all the information re- 
quired for the evaluation of the expression is included in 
it. Moreover, the parentheses are not required any more. 

Suppose that we have to evaluate the e.xpression 
a+b*c+ (d/e-f ) . For its evaluation two facts are used to 
determine the sequence of the operations. First is the 
existence of the parentheses which define which expression 
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has to be performed first. The result has to be used as a 
new value for the remaining evaluation of the expression. 
Second, the precedence of the operators. Operation of the 
exponentiation is to be performed first, then the multiplica- 
tion and division and finally the addition and subtraction. 
Therefore, in the expression in parentheses, the division 
has to be performed before the subtraction while in the part 
outside of the parentheses, multiplication is to be performed 
before addition. 

The same expression in postfix notation is: 
abc*+de/f-+. This form does not need the conventions mentioned 
above, in order to be evaluated. Each operator simply uses 
the two operands preceding it, in a left to right sequence. 

The method used for the conversion from infix to 
postfix is the push-down stack for the storage of the operators 
and parentheses of the expression. 

In general terms, the algorithm used is as follows: 
Each character of the expression is e.xamined. If it is an 
operand it is placed directly in the created postfix form. 

If it is an operand, then if the topmost character of the 
stack is an operator, priority comparison takes place. If 
the operator of the stack has equal or higher priority, it 
is popped, and placed in the postfi.x expression, while the 
other is pushed into the stack. If the priority of the stack 
operator is lower, the other is pushed into the stack. If 
the character of the infix expression is an "(", it is pushed 
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into the stack, while if it is a ") ", the topmost operator is 
popped and placed in the postfix and the two parentheses are 
ignored. Fig. 11 gives a pictorial view of the algorithm 
described . 

In order for the procedure to be included in 
the transformations of the developed software package, the 
following considerations must be taken. 

The operands can be positive or negative: 

• Functions, e.g., SQRT[7] (square root of the column's 
seven value) 

Column number enclosed in brackets, e.g., [3] (the value 

of column three) 

• Numerical values (real or integers). 

The above considerations require the statement 
of the expression in character form. In this way, the several 
kinds of operands can be distinguished and treated appro- 
priately. The produced postfix expression is stored in a 
two dimensional, one character array. 

Suppose that we have the infix expression: 

(COS [3]+2.7)/(- [5] "2-8 

The resultant postfix expression is illustrated in Fig. 12 
as it appears stored in the array POST. 
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S taci< 



Infix exoression 



Postfix expression 



a-^b*c^ { d/e- f ) 



a 






+ b»c ^ { d/e- f ) 



a 






b*c ■*• { d/e- f ) 



ab 



*c- (d/e- f ) 



ab 



(d/e- f ) 



abc 






+ (d/e- f ) 



* 



abc * 






*(d/e-£) 



abc • ^ 



(d/e - f ) 



abc __ d/e - f ) 

( 



Fig. 11. Infix to Postfix Conversion 
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abc • +d 



/e- f ) 



( 



abc*+d 



/ 

( 



e-f ) 



abc*+de 




-f ) 



abc*-^de/ 



-f ) 



{ 



abc'-^de/ 



f ) 



abc*+de/ f 



( 



( 



abc* +de/f- 






abc'»de/f-+ 






Fig. 11. (CONTINUED) 
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cos [ 3 ] 

2 . 7 



+ 



2 



[ 5 ] 



/ 

8 



Fig. 12. Representation of the Postfix Expression 

c. Evaluation of the Postfix Expression 

As previously mentioned, evaluation of the expres- 
sion after its transformation into postfix notation has been 
simplified . 

The procedure used is as follows: 

a) Scan the postfix expression and push into the stack 

the encountered operands until an operator is encountered. 

b) Pop the two topmost operands of the stack, apply the 
operator to them and push the result into the stack. 

c) Repeat until the end of the postfix expression. The 
example given in Fig. 13 illustrates the concept. 

To implement the above procedure, the sign 

of a negative number has to be considered, and be distinguished 
from a operator. This task is served by representation 

of the postfix expression as shown in Fig. 12. 
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STACK 


OPERATION POSTFIX 


OPl 


OPERATOR OP2 



3, 5, 2, *,+,10, 2, 



3 


5, 2, *,+,10, 2,/ ,1,-,+ 


3,5 


2, *,+,10, 2, - 


3,5,2 


*,+,10,2,/ ,!,_,+ 


5 


* 2 


3,10 


+,10,2,/ ,1,-,+ 


3 


+ 10 


13 


10, 2, /,!,-, - 


13,10 


2 , / , 1 , - , + 


13,10,2 


/ /!/“/+ 


10 


/ 2 


13,5 


1 / ~ , + 


13,5,1 




5 


1 


13,4 


+ 


13 

17 


+ 4 



Fig. 13. Evaluation 
Expression 
a+b*c+ ( d/e- 


of a Postfix Expression Using the 
of the Previous Example: 

-f) 
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For each line of the array POST; 

If the first character is a letter, or number, or "[", 
the element is treated as an operand. 

• If the first character is " + ", "*", "/", it is 

treated as an operator. 

If, however, the first character is then the second 

character is examined. 

If it is a letter, number or "[", the element is 
treated as a negative operand. 

If it is a " ", then it is the minus operator. 

Each of the three kinds of operands is identified, 
stored in a one dimension array and evaluated appropriately. 
The numeric characters must be decoded before an arithmetic 
operation is applied to them. 

D. RANDOMIZATION 

1 . Introduct ion 

The system provides a randomization ability of the 
data, needed in the following cases: 

Many observations (data) are collected as a function of 
time. In order to avoid any correlation influencing the 
way this data is collected, we can randomly burst the 
order of the rows of the data matrix. 

• When multiple sorting is desired and some of the columns 
are already sorted. This fact will have negative results 
in the performance of the sorting method used by the 
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system (tree-sort) to obtain the multiple sorting ^see 
Section II. B) . In cases where the amount of data is 
large, it is preferable for randomization of the sorted 
columns to take place before multiple sorting. 

2 . Principle 

The randomization of the data is obtained by reading 
it as they are ordered and rewriting it according to a sequence 
of random numbers produced by the function RANDAN. 

The principle used is a congruential method of seg- 
menting the modular arithmetic, described by K.D. Senne (1974) 
and the algorithms are given by D. Guinier (1984) [Ref. 3] . 

For all m bit generators, a sequence of integers L(n) 
in the interval {0,2**m-l} is calculated. The desired real 
variables Xn are obtained from the L(n) 's. The next sequence 
of the L(n+1) 's are calculated by dividing the L(n) 's by 
2**m by the formula: L(n+1) = (A*L(n)+B) mod 2**m. 

M. Abramowitz and I. A. Stegun (1965) have proven many 
successful combinations for A, B and m, e.g., A = R*2**S+/-1, 
where S is equal or greater than 2 and B = 0. 

The multiplier R is selected so that the number of 
significant bits in R*2**S+/-1 is approximately m. L(n+1) 
is the next cycle. There is no correlation between adjacent 
numbers: L's, ( Ll , L2 , L3 , . . . , Lq- 1 , Lq) . 

If S = 3, let: A = 8*R-1; or any m bits A in which 

the last three bits equal 1. 

The L(n) 's can be segmented into q integer parts by 
the arithmetic expression for any m bit number: 
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L(n) = f ( Ll , L2 , L3 , . , . , Lq- 1 , Lq) , that is: 

L(n) = Ll*2**(m*(q-l)/q) 

+ L2*2** (m* (q-2)/q) 

+ • . - 

+ Lq*2**0 

and A can be segmented in the same way : 

A = f (A1,A2 ,A3 , . . . , Aq-l,Aq) , that is : 

A = Al*2***m*(q-l)/q) 

+ A2*2** (m* (q-2) /q) 

+ • . . 

+ Aq*2**0 

Set L(n+1) = A*L(n)+B, that is, if B = 0 ; L(n+1) = A*L(n) 



A*(n) = (A1 


*L1 


) *2** (2*m* (q-1) /q) 


+ (Al 


*L2+A2 *L1 


) *2** (2*m*(q-2) /q) 



+ . • • 



+ (Aq-1) *Lq+Aq*Lq-l) *2 ** ( 2 *m /q) 

+ Aq *Lq *2** 0 

The previous operations are performed in Part I of 
Algorithm I : 

Algorithm I 
c=0 
k=q 

DO WHILE (k.GT.O) 
i=0 

p=0 
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PART 1 : Calculation of products A*L(n) : 



For any L(n) 

DO VraiLE (i.LE.q-k) 
p = p+Ai+k *L ( n) q-1 
i = i+1 
END DO 

PART 2 : Actualization of the L(n) 's in L(n+1) 's, by performing 
the operation modulo 2.**[m/q] : 

p = p+c 

c = p / ( 2 , ** [m/q ] ) 

L(n+l)i = p-c* ( 2 . ** [m/q] ) 
k = k-1 
END DO 

After we take the modulus relative to 2**m, for the 
next cycle of Ln ' s , the expression is given by Part 2 of 
Algorithm I. 

When we take the modulus 2.**m of the previous 
products A*L(n), it gives: 

L(n+1) ={ (Al*Lq+A2*Lq-l+. . . +Aq *Ll ) mod2 * * (m/q) }2** ( (2*m/q) * [q/2] ) 

+ (A2*Lq+A3*Lq-l+. . .+Aq*L2) *2**( ( (2*m/q) *( [q/2-2) ) 

+. . .+Aq*Lq*2**0 and, 

- the second half of the last term is: L(n+l)q, 

- the remainder of the last term + the second half of 
the next to the last term is: L(n+l)q-l,, 

- the remainder of the next to the last + the second 
half of the term just before the next to the last 
term is: L(n+l)q-2, etc. 
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Ak and Lk are defined for k = 1 to q pieces at the 
beginning of the sequence. 

The maximum precision requires 2 *m/q bits for the 
update plus carry over bits to add q numtbers of length 2*m/q 
and a number of length m/q, i.e., 

p = [ log2 {q** ( ( 2 *m/q) -1 * *2 ) +2 * * (m/q) -1 } ] +1 bits. 

The number q of possible pieces for a 36 bit pseudo- 
random number (m = 36) is: 2, 3, 6, 9, 12, 18 or 36. We 

take q = 6 for a 15 bit positive integer INTEGER*2, up to 
2**15-1, i.e., 32767. The cycle length of the generator 
has been tested greater than 10**7. 

The sequence of the x's is obtained from the following 
algorithm. 

Algorithm II 
i=0 
x=0 

DO WHILE (i.LT.q) 
i=i+l 

x=x+L (n+1) i*2 . ** (- [m/q] *i) 

END DO 

and the next L(n) 's will be the actual L(n+1) 's for the next 
sequence. The initial sequence is forced into a flag if 
it is different than zero (IND) . 
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Ill . 



DIRECTIONS FOR USE OF THE IDAMAN 



A. INTRODUCTION 

The system IDAMAN is an interactive and conversational 
system intended to be used by any user regardless of his/her 
level of programming, and without any specific knowledge or 
training requirements. For this reason an effort was made 
for the system to be self-directed via meaningful screen 
displayed prompts. 

The IDAMAN operates through five environments of operation. 
The transition from one environment to another is obtained 
by the carriage return (<CR>) . In each environment appro- 
priate prompts and menu-like tables are displayed directing 
the use of the system. The five environments are the following 
MODES OF OPERATION 

• COLUMN INFORMATION 
ROW INFORMATION 

• COLUMN MODIFICATION 
ROW MODIFICATION 

B. MANAGING DATA FILES 

The data is stored in direct-access unformatted files in 
mass storage. These files have names of the form: FORxxx.DAT; 

where xxx is a key number for the particular file. During 
the manipulation of the data, the system requests the key 
number of an existing file on which the data to be manipulated 
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IS stored or a new one on which nhe .manipulated data v;ill be 
stored. This request is done by the prompt; 



Assign the 'OLD' direct access file: 

Key(xxx) For File FORxxx.DAT number y, (nnn=069) : 



and the user has to assign a numeric or alphanumeric three 
digit key. The number y indicates the logical unit number 
used for this file (in the example given by the prompt, the 
key number is 069) . 

C. USER ERROR PREVENTION 

The program has been designed in such a way that the 
most common user errors can be prevented by an error message 
reaction of the program instead of a run time compiler error 
After the appearance of the message, the program shifts to 
the appropriate position for reassignment of the erroneously 
given information. 

D. SELECTING MODE OF OPERATION 

Access of the first environment is obtained by the execu 
tion of the program and permits the selection of one of the 
available modes. The selection of the desired mode is ob- 
tained by assigning the corresponding number of the mode as 
it appears in the following table: 
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AVAILABLE MODES 



Creation of new header :1 
Display of existing header :2 
Modification of existing header :3 
Merging of two existing headers :4 
Answer 



E. THE FUNCTION OF MODES AND HOW TO DEAL WITH THEM 
1 . Creating a New Header 

The creation of a new header is done by selecting 
mode 1. Upon entering this mode the following prompt appears 
on the screen: 



Name of header's file : 



and requests the assignment of any 24 character string which 
will be used as the file name of the sequential file in 
which information of the created header will be stored. 

After file name assignment, the prompt: 



Column information: 1 
Row information : 2 
Answer : 



requests the environment to be used next. By selecting 1, 
the program enters the environment in which information 
regarding the columns of the header will be assigned, while 
2 permits assignment of information related to the rows of 
the header . 
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Assigning Information for the Colunns 



2 . 

Upon entering the environment for column information, 
the following menu-like table appears on the screen: 



SELECTION TABLE FOR COLUMN INFORILATION 



Number of columns (mandatory) :1 

Mnemonic names :2 

Transformations : 3 

Tracing extrema :4 

Multi-sorting column guides :5 

Randomization of data :6 

Column ranking :7 

Display column information : 8 

Modification of column info :9 

Data retrieval :10 

Display/print of data file :11 



The selection of each entry of the table permits the assign- 
ment of the corresponding information. At the end of each 
assignment, the program returns for new column information. 
The exit of this environment is obtained by <CR>. The 
process for each assignment is as follows, 
a. Number of Columns 

Selecting this entry is mandatory for the opera- 
tion of the program. The following prompt appears on the 
screen : 



Assign number of columns : 



The only action of the user is the assignment of the number 
of columns of the data matrix. The ma.ximum number of columns 
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permitted by the present design of the program is 128 --which 
can easily be changed by a simple modification, 
b. Mnemonic Names 

The selection of this entry of the table permits 
the assignment of mnemonic names to columns of the data 
matrix. The prompt appearing on the screen this time is: 



Assign column number (<CR> to RETURN) : 



requesting the number of the column for the next mnemonic 
name to be assigned. After the assignment of the column 
number, the prompt appearing is; 



Assign mnemonic name : 



requesting the name for the assigned column number. The 
assignment of column names is not necessarily done in ascend- 
ing order of column numbers; neither is it necessary to assign 
names to all columns. The program sorts the assigned column 
numbers in order, to appear in the display of the header's 
data in the proper order. <CR> terminates the assignment of 
names . 

c. Transformations 

IDAMAN uses this function to permit any number 
and kind of mathematical expression involving values of the 
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data matrix to be assigned. In this way a tra.nsf ormation of 
the value according to the assigned expression is obtained. 
The value of each expression (calculated for each row) is 
considered as a new column of the header and of the data 
matrix. The result of the transformation is attached to the 
rightmost end of the columns as a new column. The total 
number of the original columns plus the number of columns 
created by transformations should not exceed the maximum 
permitted number of 128. 

The function of the transformations is better 
explained by the following example. Suppose that the initial 
data matrix to be transformed is: 



2.2 


5.3 


9.0 


0 . 3 


3.0 


1.2 


4.0 


1 . 5 


• — 1 
I — 1 


6.7 


16.0 


23.5 


12.3 


3.0 


1.0 


3.5 


o 

o 


1.0 


0.0 


1.0 


4 .4 


5.0 


4.0 


8 . 7 



with NC0L=4 NR0W=6 and the assigned transformation is 
SQRT[3]/2. This means that the column to be transformed is 
the third, and the transformation will be the square root 
of its value, and then dividing the result by 2. The new 
data matrix will have NC0L=5 and will be: 
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2 . 2 


5 . 3 


9 .0 


0 . 3 


1 . 5 


3.0 


1.2 


4.0 


1.5 


1 .0 


1 — 1 
< — 1 


6 . 7 


16.0 


23.5 


2 .0 


12 . 3 


3.0 


1.0 


3 . 5 


0 . 5 


0.0 


1.0 


0.0 


1.0 


0 .0 


4 .4 


5.0 


4 .0 


8 . 7 


1.0 



The form of the assigned transformation can be 
any algebraic expression involving values of the data matrix, 
any real or integer constant value, and values resulting 
from the application of the following functions, assigned by 



number 


column : 


LOGC 


Common logarithm. 


LOG 


The natural logarithm. 


EXP 


Exponential . 


ABS 


Absolute value. 


SIN 


S ine . 


COS 


Cosine . 


TAN 


Tangent . 


AS IN 


Arc sine. 


ACOS 


Arc cosine. 


ATAN 


Arc tangent. 


SINK 


Hyperbolic sine. 


COSH 


Hyperbolic cosine. 


TANK 


Hyperbolic tangent. 


SORT 


Square root. 


ASINH 


Arc sine hyperbolic. 
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The column number for which the value will be substituted 
for in calculating the expression, must be enclosed in 
brackets ([]) in order to be recognized by the program. The 
notion of exponentiation is shown by the character, All 

functions assigned in an expression must be in upper case 
letters in order to be recognized by the program. The follow- 
ing are some examples of expressions that can be assigned as 
transformations of columns: 

[3]+3.14 

• SQRT[7] 

(SIN [5] +3. 14) "2 

• LOG[10]-( [12]*(-SQRT[2]) ''3 

. ( (COS[15]+3.14)/[4j) *5.23 

At the end of the expression ( s) assignment, the file name 
in which the data to be transformed are stored, must be 
assigned . 

d. Tracing Extrema 

By this function, IDAMAN permits the assignment 
of a range of values in which all existing values in the 
data matrix will be used for tracing. This area is defined 
by its lower and upper boundaries (extrema) . Upon selecting 
the corresponding entry of the selection table, the program 
requests the name of the file on which the data are stored, 
in order to determine the existing maximum and minimum values 
of each column. These values are used for tracing in the 
case that not-user defined extrema are desired. The extrema 
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are displayed during assignment to facilitate the work. The 
next assignment is the type of e.xtrema that will be used. 
That is the purpose of the prompt: 



Imposed extrema for tracing :1 



Original extrema 



:0 



Selecting 0, the program automatically will use the minimum 
and maximum values of each column as tracing extrema. 
Selecting 1, the user is requested to assign the column 
number for the tracing extrema, by the following prompt: 



The program displays the existing minimum and maximum values 
of each column. The user thus assigns his/her different 
imposed extrema. 

e. Multi-sorting Column Guides 

Multi-sorting column guides allow the system to 
assign a series of columns according to which multiple sorting 



Assign column number (<CR> to RETURN) : 



The prompt for exrema assignment continues: 



MIN (found) : 
MAX (found) : 



Imposed : 
Imposed : 
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will take place. For details on multiple sorting, see 
Section II. B. The assignment of the columns that will be 
used as guides for the sorting can be done by the column 
numbers or by their mnemonic names. The following prompt 
requests the user to assign the desired mode of assignmient 



By column numbers :1 
By mnemonic names :2 
Answer : 



By selecting 1, the following prompt will appear: 



Assign nc(s) . of columns : 



The assignment of sorting guides can be a series of column 
numbers separated by a "comma" or two numbers separated by 
a "colon" meaning that all the numbers contained therein 
will be used as multiple sorting guides. If, for exam, pie, 
18,13,5 is assigned, the data will be sorted according to 
column 18, then according to column 13, and finally according 
to column 5. If 5:8 is assigned, the data will be sorted 
according to column 5, then according to column 6, then 
column 7, and finally column 8. If the assigned series of 
columns exceeds one screen line, the assignment can continue 
to the next screen line by using a "comma" as a continuation 
mark. In the case that assignment of sorting guides using 
mnemonic names is desired, the prompt: 
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Assign column mnemonic names : 



will provide it. In this case the names must be assigned one 
in each screen line. After printing the name of the column, 
the carriage return (<CR>) will enter the name in the computer 
while the cursor will move to the next screen line for the 
next name assignment. 

f. Randomization of Data 

By this operation, the system permits randomization 
of the data for improvement of the sort method performance 
or for elimination of the time effect. The only assignment 
for this operation is the name of the file on which the data 
are stored. This assignment is done as soon as the prompt 
requesting the name of the file appears on the screen (see 
Sect ion III . B) . 

g. Column Ranking 

A new arrangement of the columns assigned by the 
user is permitted. This assignment can be done by column 
numbers or column names. Upon selection of the operation, 
the prompt: 



By column numbers :1 
By mnemonic names :2 
Answer : 



requests the desired assignment mode. If the mode is the 
first one, the prompt: 
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Assign no(s) of columns: 



requests the assignment of a series of column numbers which 
will be used for the new ranking. This assignment is done as 
described in Section III.B. The assignment of columns with 
mnemonic names is also done as in Section III.E.2.e, after the 
prompt : 



Assign ranking by sequence of names : 



appears on the screen. 

The operation of ranking creates a new data file. 
The number of columns used for the ranking assignment is 
the number of columns of the new data matrix. 

h. Display of Column Information 

Display of column information shows assigned 
information related to the columns of the header. 

i. Modification of Column Information 

By this operation, the program passes to the 
environment for modification of information related to the 
columns. This is a modification of information assigned by 
the current run of the program. As mentioned above, the 
modification of a header created by another run and e.xisting 
in a file, is done by another mode of the program. Upon 
selecting the modification operation, the table:- 
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MODIFICATION SELECTION TABLE 



Number of columns :1 
Mnemonic names :2 
Tracing extrema :3 
Sorting guides :4 
Rank of columns :5 
Answer : 



permits selection of the desired modification. The several 
modifications are executed with the same kind of conversa- 
tional mode. The old information, which are candidates for 
modification, appear on the screen to facilitate the work. 

In case that modification is attempted for information that 
has not been assigned, the program reacts with a message 
informing the user to assign the information. The following 
prompts appear for the corresponding modification selections. 

(1) Number of Columns. 



Old number of columns : 
Assign new number 



(2) Mnemonic Names. 



Assign column number : 



Upon the assignment of column number for the 
mnemonic name which will be modified, the prompt: 
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Old name : 

Assign new name : 



facilitates the modification. 

(3) Tracing Extrema . The prompt: 



Assign column number : 



requests the number of the column for which the tracing 
extrema will be modified and in following the prompts: 



Old MIN 

Assigns new MIN 
Old MAX 

Assign new MAX 



permits the modification of the displayed old extrem.a . 

(4) Sorting Guides . Seleoting modification of 
the multi-sorting column guides, the old ones (column numbers 
or mnemonic names) are displayed initially, and then the 
prompts : 



Assign no(s) of columns : 



or 



Assign mnemonic names : 
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requests new column assignment by numbers or mnemonic 
names . 

(5) Rank of Columns . Modification of the ranking 
assignment is similar to modification of multi-sorting guides. 
The difference is that the number of columns must be modified 
before the modification of the ranking assignment in order 
to be consistent with the initial data matrix, 
j . Data Retrieval 

By this operation, the program searches the data 
file for a specific value assigned by the user or for a 
missing value represented by a "gold" value, and informs the 
user about them as explained below. The process for the 
assignment of this operation of the program is as follows: 



Name of the existing data file : 



requests the key number of the data file which is going to 
be searched. The next prompt: 



Assign device (or file) : 



permits the user to assign where he/she desires to receive 
information (terminal or file) . The amount of file to be 
searched is also assigned by the user with determination of 
columns and rows of the data matrix. This is done after the 
appearance of prompts: 
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Assign no(s). of coluir.ns ; 



and 



Assign no(s) . of rows 



The assignment can be done by the symbol meaning "all", 

by any alphabetic character, by sequence of column or row 
numbers separated by a comma (e,g., 2,5,36) which 

determines specific columns and rows, or by two numbers 
separated by a colon (":") which determines all columns or 
rows included between the two numbers. The prompt that follows 



Data to be retrieved (real or "gold") 



permits the assignment of the real value to be searched. 
The letter "g" or "G" determines that the program must 
search for missing values which are represented by the 
number 12345.678 or any number that can be assigned by the 
user with the next prompt: 



Change or RETURN : 



The data provided by the program after completion of the 
search is the Index (sequence number of the element in the 
matrix) , the column number, the row number and the value. 
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k. Display/Print of Data File 

For the data file to be displayed, information 
regarding its name, the device on which it will be printed 
or displayed, the numbers of columns and rows that will be 
printed or displayed are requested as in Section iii,E.2.e. 
The format of the data values is also the object of user's 
specification. It follows the prompt: 



The normal format : nnnnnnnn . nnnnnn 

To modify it assign your format (ex.nnn.nnn) <CR> : 



which gives the normal format (F14.6 i.e., 14 digits--6 

decimal) of the display or print. If modification is desired, 
an example-like assignment can be done as shown by the 
prompt's example using any keyboard character. 

3 . Assigning Information for the Rows 

The function of the program in the row information 
environment is similar to that of column information. Upon 
entering this environment the following menu-like table, 
appears on the screen: 



SELECTION TABLE FOR ROW INFORMATION 



Number of rows (obligatory) :1 
Mnemonic names :2 
Row suppression :3 
Row rejection :4 
Row ranking . :5 
Display row information :6 
Modification of row info :7 
Data retrieval :8 
Display/print of data file :9 
An swe r 
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The process for the assignment of each informarion 
is as follows: 

a. Number of Rows 

The number of rows is assigned when the prompt: 



Assign number of rows : 



appears on the screen and can be up to 2048. 
b. Mnemonic Names 

For the rows of the data matrix, mnemonic names 
can be assigned for each individual row or for a user deter 
rained set of rows. The desired kind of assignment is deter 
mined as soon as the prompt : 



Row by row 
By set of rows 
Answer 



appears on the screen. For the assignment of row by row 
names, the number of rows has to be given, followed by the 
name just as requested by the prompts: 



Assign row number (<CR> to RETURN) 
Assign mnemonic 



For assignment of names by sets of rows, the row numbers 
determining a set must be given by the user right after 
the set of the following prompts appears on the screen: 
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Common name set 
From row 
To row 
Name 



The number of common name sets is automatically given by the 
program. Termination of assignment is obtained by hitting 
<CR> instead of a row number. 

c. Row Suppression 

The row suppression operation is a physical 
suppression of rows of the data matrix. Assignment of the 
rows to be suppressed can be done either by the row number 
or by the common name of the set. In this case, all the 
rows of the set will be suppressed. The selection of mode 
follows the prompt: 



By number of rows 
By row set name 
Answer 



In both cases, assignment of the data file to be suppressed 
must be made as in Section III.B. Assignment of row numbers 
is done after: 



Assign no(s) of rows : 



by printing the individual row numbers separated by a comma 
(e.g., 4,6,7) or by a set of rows determined by two numbers 
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separated by a colon (e.c. , 5:10) . Both sorts of assicninents 
can be done consecutively. For example, the suppression 
assignment 1,2,3,4,8,11,16:20 will cause suppression of the 
rows 1,2,3,4,8,11,16,17,18,19,20. If, after this assignment, 
a display of row information is requested and the number of 
rows before suppression was 30, information appearing on the 
screen will be as follows: 

ROW INFORMATION 

•k-k'k'kic'k-k'k-k-k-k-k-k'k-kic'k-k-k-k-k-k'k-k'k'k'k'k-k 

NUMBER OF ROWS 
19 

SUPPRESSIONS 

Suppression From Row To Row 

1 14 

2 8 8 

3 11 11 

4 16 20 



The suppression assignment by a common name set 
of rows is done simply by assigning the name of the set after 
the prompt: 



Suppression : 
Set name : 



d. Row Rejection 

By this operation rows of a data matrix can be 
assigned which are to be e.xcluded from a calculation. The 
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determination of those columns can be done by their numbers, 
which will be stored in a sequential file. The name is 
defined by the user as the following prompts appear on the 
screen : 



Assign sequential file for rejected values 

Key (xxx) For File FORxxx.DAT number n, (nnn=076) : 

Assigned rejected rows for calculus : 

Assign no(s) . of rows : 



e. Row Ranking 

The row ranking, like column ranking, permits the 
assignment of the order by which the rows of the data matrix 
will be arranged. The assignment is done by the number of 
the rows after the prompt: 



Assign no(s) . of rows : 



and the names of the old and new files (see Section III.B) . 

f. Display Row Information 

The selection of this table of the entry simply 
displays the assigned row information without any other user 
intervention . 

g. Modification of Row Information 

This operation, as in the column information 
environment, permits modification of assigned information 
related to rows of the data matrix, by the current run of the 
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program. In general the function of the program in this 
environment is similar to that for row modification. The 
menu of the available modifications is the following: 



MODIFICATION SELECTION TABLE 



Number of rows :1 
Mnemonics by row numbers :2 
Mnemonics by series of rows : 3 
Suppression :4 
Rank of rows :5 
Answer : 



(1) Number of Rows . The modification of the 
number of rows is simply a new assignment of the desired 
rows following the prompts: 



Old number of rows : 
Assign new number 



(2) Mnemonics by Rows . This operation permits 
modification of mnemonic names assigned individually for each 
row of the data matrix. The row number and name are required 
to be given after the prompt: 



Assign column number : 



and then the new name appears after the prompt: 



Old name : 

Assign new name : 
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( 3 ) Mnemonics by Series of Rows. 



In this operation, 



the program permits modification of the 
common name or modification of the name 
desired modification is determined with 
the prompt : 



set of rows with a 
of the set. The 
the assistance of 



Series modification :1 
Name modification :2 
Answer : 



If modification of the 
desired, the number of 
after the prompt: 



series of rows with a common name is 
the series (set) must be determined 



Assign series number : 



and the old series is displayed on the screen to facilitate 
the new assignment: 



Old series 
From row 
To row 



while at the same time the prompt: 



Assign new series 
From row 
To row 
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permits assignment of the new specification of the series. 

If modification of the common name of the set is desired, the 
prompt ; 



Assign series number : 



requests the number of the set to be modified. Then the old 
mnemonic appears on the screen together with the request for 
new mnemonic name assignment: 



Old mnemonic : 

Assign new mnemonic : 



(4) Suppression . As mentioned in Section III.E.3.C, 
the suppressions automatically have sequence numbers 
attached to them. Modification of the suppressions is done 
by first assigning the suppression sequence number requested 
by the prompt: 



Assign suppression number : 



Modification of the suppressed rows is facilitated by the 
display of the old suppression specification requesting the 
new assignment: 
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old suppression 
From row 
To row 

Assign new suppression 
From row 
To row 



(5) Rank of Rows . Modification of row ranking 
is executed by the following prompt: 



Old ranking : 

Assign no(s) of rows : 



h. Data Retrieval 

This is simply another place in the program where 
the retrieval of data can be obtained in exactly the same 
way as in Section III.E.2.j. 

i. Display/Print of Data File 

This is an alternative position for display or 
print of the data file, executed the same way as in Section 
III.E.2.k. 

2 . Displaying an Existing Header 

This is the second mode of operation of the program. 
It simply displays either the column or row information of a 
header created by a previous run of the program. As has 
been mentioned, information of a created header is stored 
in a sequential file in secondary storage. This file is 
automatically opened by the program. Data are- read and 



86 



displayed on the screen by the sir.ple assigninent of the name 



of the header's file requested by the prompt: 



Name of header's file : 



The next required assignment is the determination of 
column or row information display: 



Column information 
Row information 
Answer 



Exit of the mode is obtained by <CR> . 

3 , Modifying an Existing Header 

In this mode, the modification of a header created 
by a previous run of the program can be obtained by simply 
assigning the name of the header's file. 

4 . Merging 

With this mode of operation, a merging of two data 
matrices and combination of their corresponding headers is 
obtained. This operation can be executed in the horizontal 
(column merging) or vertical (row merging) sense; in other 
words the matrices can be merged side by side or one over the 
other. Horizontal merging is only permitted by the program 
if the two matrices have the same number of rows while vertical 
merging is permitted if they have the .same number of columns. 
The resultant headers in such an operation are as follows: 
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Row merging. 



Column names: If the same column has a mnemonic 

name in both headers, then the name of 
the first header (upper matrix) is kep 
as the column name. Otherwise the 
unique name in either header is kept 
as the column name. 

Tracing extrema: If tracing extrema are assigned for 

the same column in both headers, then 
the minimum of the two minima and the 
maximum of the two ma.xima of the 
columns are kept as tracing extrema 
for the column. Otherwise the unique 
minimum and maximum values are kept as 
tracing extrema for the column. 

Row names: The names of rows of the two headers 

whenever they e.xist. 

• Column merging. 

The naming of the rows of the combined header is done 
in the same way as the naming of columns. Since the first 
one of the two merged data matrices is adjusted to the left 
of the created common matrix, the naming of the sets of rows 
of this file is kept as the common name for the corresponding 
rows of the new matri.x. 

The operation of merging is e.xecuted without any 
extra intervention of the user, simply by assignment of the 
file names of the two headers to be combined: 
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Name of first Header's file 
Name of second Header's file 
Name of new Header's file 



and the sort of desired merging: 



Row merging :1 

Column merging :2 



The names of the files on which the two merged 
stored and the one on which the new one will be 
the process described in Section III.B. 



matr ice 
stored , 



are 

uses 
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IV. CONCLUSION AND PERSPECTIVES 



The interactive-conversational character makes the system 
easily usable and independent of knowledge requirements. 

The language used for implementation (FORTRAN 77) makes it 
transportable. The separation of the data manipulation process 
from the calculations also makes it highly expandable. Since 
the developed system composes only the module for manipulation 
of the data, development of the remaining modules constitute 
the perspectives of the concept in order for it to be complete. 
The cycle of data analysis is realized if the following process 
is completed: 



(I DAMAN) 

— DATA STORAGE - DATA MANIPULATION - DATA TREATMENT — 

< < 



• Data can be obtained and stored automatically by a 
previous program or by the keyboard under control of a 
specific program--the Interactive DAta LOaDer, IDALOD, 
which is under development by Dr. Daniel Guinier. 

• Data treatment (statistical or mathematical) can be done 
by modification of modules of existing packages by 
addition of the two subroutines READER, in relation with 
the "header file", and REJECT, in relation with a 
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"logical suppression file". This file has been previously 
created by IDA2-1AN. Application programs involve: 

one column (e.g., comparisons of means of sets of 
observations stored in one or several columns) , 
two columns (e.g., graphs including observed and/or 
data fit with a given model) , 

several columns (e.g., multivariate statistical 
analysis (discriminant, principal components, cluster, 

. . . analysis) , can be easily developed. There is no 
limitation to the expandability because these tasks 
are not included in the previous tasks of loading and 
management . 
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APPENDIX A 



FORTRAN 77 Source Code of Interaccive Data Manager 



(^■*****'*-**ir:*r*********t*:***ir****-^*:*r***':*:****:*r:*::*r^-^**:*::^*:*r*ir:*r:*::t:*r:^:*rx'*:'*f 

C 

C Interactive DATa MANager 

C 

c I D A M A N 

C 

C FUNCTION : 

C 

c 

C This system provides the means for an interactive and 

C self explanatory manipulation of large collections of 

C data stored in d i rect-access files in secondary memory. 

C The way the system can manipulate the data is such that 

C facilitates the future statistical analysis of them. The 

C system can execute the following manipulations 

C (functions) 

C 

C a. Sort the data matrix. 

C b. Multi-sort the data matrix. 

C c. Search the data matrix for a value. 

C d. Rearrangement the columns or rows of the data matrix. 

C e. Transformation of a column values, 

C f. Randomization of the values of the entire data 

C matrix. 

C g. Logical suppression of data. 

C h. Display of the assigned HE.^DER. 

C i. Display of the data matrix. 

C 

C By D.GUINIER and N.TOTOS (1984) 

C Naval Postgraduate School, Depatrment of Computer Science 

C Monterey, California 93940 

C 

C VARIA3L 

C 

C 

C NCOL 

C NROW 

C COLMNE 

C NKEY 

C 

C MNE 

C 

C ROWMNEl 

C ROWMNE2 

C NRANK 

C 



: The number of columns. 

; The number of rows. 

: Array storing the column mnemonic names. 

: Array storing the numbers of columns which 
will be used as sorting guides. 

: Array storing the names of columns which 
will be used as sorting guides. 

: Array storing the row mnemonic names. 

: Array storing the mnemonics of sets of rows. 

: Array storing the numbers of columns that 

assign the ranking of columns. 
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MRANK 



columns 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



A, 3 

SUP1,SUP2 



RMIN, RMAX 



NCO 

NRO 

NTR 

NCIN 
NR IN 
NT IN 
SN 

FLAGl 



FLAG 2 
FNAME 



HIFNAME 

H 2 FNAME 

NC 

NR 

NT 

IJ 

NN 



NM 

NNU 

KMN 

LEG 

IMP 

LOGN 

NOROW 

. NBROW 



names o: 



- U ^ - 
« i A G u 



olu.mns 



Array scoring the 
assign the ranking 
Arrays storing the member of row on which 
starts a set of corrjnon name rows and the 
corresponding on which ends the set. 

Arrays storing the n-umber of row on which 
starts suppression of rows and the 
corresponding on which ends the suppression. 
Arrays storing the minimum and maximum 
values between which tracing of the data is 
going to take place. 

The numbers of columns for which have been 
assigned names. 

The numbers of rows for which have been 
assigned names. 

The column numbers for which tracing extrema 
have been assigned. 

The invert relative addresses of COLMNE. 

The invert relative addresses of RCWMNEl. 

The invert relative addresses of RMIN, RMAX. 
The number of assigned suppressions. 

Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
The corresponding flag for rows. 

The name of the sequential file assigned by 
the user for on which the headers 's data 
will be stored. 

The name of the first header's file which 
will be merged. 

The name of the second file for merging. 

The number of assigned column mnemonic nam.es 
The number of assigned row mnemonic names. 
The number of columns for which tracing 
extrema have been assigned. 

The number of assigned tracing extrem.a sets. 
The number of repeated sortings according 
column numbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of columns used for ranking. 

The number of column names used for ranking. 
The logical unit for writing on the terminal 
The logical unit for reading from the 
terminal . 

The logical chanel for the file on which the 
header, s data will be stored. 

Array the numbers of rows used as guides 
for the ranking of the rows. 

The number of row numbers used for row 
ranking 
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c 

c 

c 



DECLARATIONS : 

IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 SN,FLAG1(6) , FLAG2 ( 4 ) ,NKEY(123) ,NRANK(123) , 

1 B(128) ,SUP1(128) ,SUP2(128) ,NCO(128) , 

2 NRO(128) ,NTR(12S) , NT IN ( 1 28 ) , NRI N ( 20 4 3 ) , 

3 NOROW( 2048 ), A( 128 ) ,NCIN( 128 ) 

REAL*4 RMIN( 128 ) , RMAX( 128 ) 

CHARACTER* 2 4 FNAME , Hi FNAME , H2FNAME , IND , COLMNE ( 1 2 3 ) , 

1 MNE(128) ,MRANK(128) , ROWMNEl ( 2048 ) , 

2 R0WMNE2(128) 

LOGICAL*! STAT, STATl , STAT2 
DATA LEC, IMP, LOGN/5 , 6 , 0/ 

IDUM=1 

DO WHILE ( IDUM. EQ. 1 ) 

IDUM=0 

WRITE( imp, 100 ) 

READ(LEC, 200 ) IND 
IF ( IND.EQ. ' 1 ' ) THEN 

CALL CREATE ( LEC , IMP , LOGN , FLAGl , FLAG2 , NCOL , NROW , 

1 COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2 ROWMNE2 , RM I N , RMAX , NT , NTR , NT I N , NKEY , MNE , NN , 

3 NM , IJ , A , B , NRANK , MRANK , NNU , KMN , SUP 1 , SUP 2 , S N , 

4 NOROW, NBROW) 

IDUM=1 

ELSE IF (IND.EQ. '2') THEN 

CALL D I SPLA ( LEC , IMP , LOGN , FLAGl , FLAG2 , .NCOL , NROW , 

1 COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2 ROWMNE 2 , RM I N , RMAX , NT , NTR , NT I N , NKEY , MNE , NN , 

3 NM, IJ,A,B,.NRANK,MRANK,NNU,.KMN,SUP1,SU?2,SN, 

4 NOROW, NBROW) 

IDUM=1 

ELSE IF (IND.EQ. '3') THEN 

CALL MODIFY (LEC, IMP , LOGN , FLAGl , FLAG2 , .NCOL , NROW , 

1 COLMNE, NC, NCO,. NCI N, ROWMNE 1 , NR, NRO, NRI N, 

2 ROWMNE2 , RMI N , RMAX , NT , NTR , NT I N , NKEY , MNE , NN , 

3 NM, IJ, A, B, NRANK, MRANK, NNU, KMN, SUP1,SUP2 ,SN, 

4 NOROW, NBROW) 

IDUM=1 

ELSE IF (IND.EQ. '4') THEN 

CALL MERGE ( LEC , IMP , LOGN , FLAGl , FLAG2 , .NCOL , NROW , 

1 COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2 ROWMNE 2 , RM I N , RMAX , NT , NT R , NT I N , NKEY , MNE , NN , 

3 NM, IJ , A, B ,. NRANK, MRANK, NNU, KMN, SUP 1 , SUP2 , SN, 

4 NOROW, NBROW) 

IDUM=1 

ELSE IF (IND.EQ.' ') THEN 
IDUM=0 
ELSE 

WRITE( IMP, 300 ) 

IDUM=1 
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END IF 
END DO 

C FOR.MATS 

C 

c 

100 FORMAT(/////13X, ' AVAILABLE MODES' /13X, 

1 . •/ 



2 




4X, 


'Creation of new 


header 


:!’/ 


3 




4X, 


'Display of exis 


ting header 


:2'/ 


4 




4X, 


' Mod ifi cation of 


existing header 


: 3 ' / 


5 




4X, 


'Merging of two 


existing headers 


:4'/ 


6 


' S’ 


,3X, 


' Answer 




: ' ) 


FORMAT 


(A24) 










FORMAT 


(/3X, 


' INVALID CHARACTER! ! 


' ) 




END 
















SUBROUTINE CREATE ( LEG , IMP , LOGN, FLAGl , FLAG 2 , NCOL , NROW, 

1 COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2 ROWMNE 2 , RMI N , R.MAX , NT , NTR , NT I N , NKEY , MNE , NN , 

3 NM , I J , A , 3 , NRANK , MRANK , NNU , KMN , SUP i , SUP2 , SN , 

4 NOROW, NB ROW) 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 






This subroutine is used for the creation of a new header. 
ARGUMENTS 



LEC 

IMP 

LOGN 

FLAGl 



FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 

ROWMNEl 

NR 

NRO 

NRIN 



The logical unit number for writing on the 
terminal. 

The logical unit number for reading from the 
terminal . 

The logical unit for the file on which the 
header, s data will be stored. 

Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
The corresponding flag for rows. 

The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names 
The numbers of columns for which have been 
assigned names. 

The invert relative addresses of COLMNE. 
Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE. 
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C R0WMNE2 ; 

C RMIN,R.MAX : 

C 
C 

C NT : 

C 

C NTR : 

C 

C NT I N : 

C NKEY : 

C 

C MNE : 

C 

C NN 

C 

C NM 

C 

C IJ 

C A , B 

C 
C 

C NRANK : 

C 

C MRANK : 

C 

C NNU : 

C KMN : 

C SUP1,SUP2 : 

C 

c 

C SN : 

C NOROW : 

C 

C NBROW : 

C 

c 

(^**************** 



of ihe 

which 

which 



of rows 
max imum 
daca is 



trac 1 ng 
t rac i ng 



sortings accoraing 
sortinos accordinc 



Array storing the mnemonics of sets 
Arrays storing the minimum and 
values between which tracing 
going to take place. 

The number of columns for 
extrema have been assigned. 

The column numbers for 
extrema have been assigned. 

The invert relative addresses of RMIN,.RMAX. 
Array storing the numbers of columns which 
will be used as sorting guides. 

Array storing the names of columns which 
will be used as sorting guides. 

The number of repeated 
column numbers. 

The number of repeated 
column mnemonic names. 

The number of assigned 
Arrays storing the mumber of row 
starts a set of common name rows 
corresponding on which ends 
Array storing the numbers 
assign the ranking of data 
Array storing the names 

assign the ranking of data 
The number of columns 
The number of column names 
Arrays storing the ' number 
starts suppression of 

corresponding on which ends the suppression 
The number of assigned suppressions. 

Array the numbers of rows used as guides 
for the ranking of the rows. 

The number of row numbers used for row 

ranking 



trac ing 



extrema sets 
on which 
and the 



s the 


set . 


of 


columns that 


of 


columns chat 


for r 


ank ing . 


s used 


for ranking 


of 


row on which 


rows 


and the 



*******************************************-v* 



IMPLICIT INTEGER*2 (l-N) 

INTEGER*2 SN, FLAGK 6) , FLAG2 ( 4 ) ,NKEY( 128 ) ,NRANK( 128 ) , 

1 B( 128 ) ,SUP1 ( 128 ) ,SUP2 ( 128 ) ,NCO( 128 ) , NCIN( 128 ) , 

2 NRO(128) ,NTR(128) ,NTIN(128) ,NRIN(2048) , 

3 NOROW(2048) ,A(128) 

REAL*4 RMIN( 128) ,RMAX( 128) 

CHARACTER* 2 4 FNAME , COLMNE (128), MNE (128), MRAxNK (128), 

1 ROWMNEl ( 2048 ) , ROWMNE2 ( 128 ) , I ND , HI FNAME , H2 FNAME 

LOGICAL*! STAT,STAT1 ,STAT2 
C 

C Request a name for the file on which the data of the 

C header will be stored. 



WRITE( IMP, 200 ) 
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READ( LEC, lOG ) FNAME 



C 



C 



c 

c 



c 

c 



c 



Examine if a file whith rhis name already exisrs. 

I NQU I RE ( F I LE = FNAME , EX I ST = ST AT ) 

If not, open a new sequential file. 

I F ( STAT . EQ . . FALSE . ) THEN 

OPEN ( UN IT=LOGN , F I LE= FNAME , STATUS = ' NEW ' ) 

Call the subroutine which will request for column 
or row informations. 

CALL CRINFO ( LEC , IMP , FLAGl , FLAG2 , NCOL , NRCW , COLMNE , 

1 NC , NCO , NC I N , ROWMNS 1 , NR , NRO , NR I N , ROWMNE 2 , 

2 RMI N , RMAX , NT , NTR , NT I N , NXEY , MNS , .NN , NM , I J , 

3 A , B , NRANK , MRANK , NNU , KMN , SUP 1 , SUP 2 , SN , 

4 NO ROW, NB ROW) 

Record the assigned data in the opened file for 
future reference. 

CALL WR I TER ( LOGN , FLAG 1 , FLAG2 , NCOL , NROW , KMN , NNU , NN , 

1 NM, ij, a,3,colmne,nc,nco,ncin,rm:n,rmax, 

2 NT , NTR , NT I N , NKEY , MNE , NRANK , MRA.NK , 

3 ROWMNE 1 , NR , NRO , NR I N , .ROWMNE2 , SUP 1 , SUP 2 , 

4 SN , NOROW , NBROW ) 

If the file already exists, respond with a message. 
ELSE 

write! imp, 300 ) 

IDUM=1 
END IF 



C FORMATS 

C 

c 

100 FORMAT (A24) 

200 FORMAT (///'$', 3X ,' Na.me of header' 's file :') 
300 FORMAT (///4X, 'THE FILE ALREADY EXIST!!') 
RETURN 
END 



-k 'k -k 'k ~k ~k ~k ~k -k -k -k -k ~k ~k i>( -k -k -k -k -k -k -k -k "k -k ^ -k 'k "k -k 'k ic 'k -k "k -k ~k ~k "k -k -k -k 

SUBROUTINE DISPLA( LEC, IMP , LOGN , FLAGl , FLAG2 , NCOL, NROW, 

1 COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , 

2 NR I N , ROW>lNE2 , RM I N , RMAX , NT , .NTR , NT I N , 

3 NKEY , MNE , NN , NM , I J , A , B , NRA.NK , MRANK , NNU , 

4 KMN, SUP 1, SUP 2, SN, NOROW, NBROW) 

C 

C This subroutine is used to display the data of a preveusly 



97 



def ined header . 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



ARGUMENTS 

EEC 

IMP 

LOGN 

FLAGl 



FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 



unit number for 
unit number 



:or 



The logical 
terminal . 

The logical 
terminal . 

The logical unit for the file 
header, s data will be stored. 

Integer array of six elements 
to indicate the existence or 
several informations regarding 
The corresponding flag for rows. 

The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic nam.es 
The numbers of columns for which have been 
assigned names. 

The invert relative addresses of COLMNE. 



writing on tne 

reading from the 

on which the 

used as flag 
not of the 
the columns. 



c 


ROWMNEl 




Array storing the row mnemoni 


c names 


• 


c 


NR 




The number of assigned row mn 


emon i c 


names . 


c 


NRO 




The numbers of rows for whi 


ch names have 


c 






been assigned. 






c 


NRIN 




The invert relative addresses 


of ROWANS. 


c 


R0WMNE2 




Array storing the mnemonics 


of sets 


of rows 


c 


RMIN, RMAX 




Arrays storing the minimum 


and 


maximum 


c 






values between which tracing 


of the 


data is 


c 






going to take place. 






c 


NT 




The number of columns for 


which 


t rac i ng 


c 






extrema have been assigned. 






c 


NTR 




The column numbers for 


which 


tracing 


c 






extrema have been assigned. 




c 


NT IN 




The invert relative addresses 


of RMIN, RMAX . 



NKEY 

MNE 

NN 

NM 

IJ 
A, B 

NRANK 

MRANK 



according 
accord i ng 



Array storing the numbers of columns which 
will be used as sorting guides. 

Array storing the names of columns which 
will be used as sorting guides. 

The number of repeated sortings 
column numbers. 

The number of repeated sortings 
column mnemonic names. 

The number of assigned tracing extrema sets 
Arrays storing the mumber of row on which 
starts a set of common name rows and the 
corresponding on which ends the set. 

Array storing the numbers of columns that 
assign the ranking of data 

Array storing the names of columns that 
assign the ranking of data 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



NNU 

KMN 

SUPl , SUP 2 



SN 

NOROW 

NBROW 



The number of colum.ns used for ranking. 

The number of column nam.es used for ranking 
Arrays scoring the number of row on which 
starts suppression of rows and the 
corresponding on which ends the suppression 
The number of assigned suppressions. 

Array the numbers of rows use*d as guides 
for the ranking of the rows. 

The number of row numbers used for row 
ranking 






IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 SN,FLAG1(6) , FLAG2 ( 4 ) ,NKEY(128) ,NRANK(123) , 

1 B(128) , SUPl (128) ,SUP2(128) ,NCO( 123 ) , NCIN( 128 ) , 

2 NRO(128) ,NTR(128) , NT I N ( 1 28 ) , NR I N ( 20 4 8 ) , 
NOROW(2048) ,A(128) 

REAL*4 RMIN( 128) , RMAX( 128 ) 

CHARACTER* 24 FNAME , COLMNE ( 128 ) ,MNE( 123 ) , MRANK ( 128 ) , 

1 ROWMNEl (2048), ROWMNE2 ( 1 2 3 ) , I .ND , H 1 FN.kME , 

H 2 FNAME 

LOGICAL*! STAT,STAT1 ,STAT2 



WRITE( IMP, 200 ) 

C Request the name of the file. 

READ ( LSC, 100 ) FNAME 
I NQU I RE ( F I LE= FNAME , EX I ST = STAT ) 



C If the file exists open it. 

I F ( STAT . EQ . . TRUE . ) THEN 

OPEN ( UNIT=LOGN , F I LE= FNAME , STATUS= ’ OLD ' ) 
REWIND LOGN 



C 



C 



c. 



Call the subroutine READER to read the data of the file 

CALL READER ( LOGN , FLAGl , FLAG2 , NCOL , NROW , K.MN , NNU , NN , NM , 

1 I J , A , B , COLMNE , NC , NCO , NC I N , RM I N , RMAX , NT , 

2 NTR , NT I N , NKEY , MNE , NRANK , MRANK , ROWTkNE 1 , NR , 

3 NRO , NR I N , ROWMNE2 , SUP 1 , SUP2 , SN , NOROW , NBROW ) 
IDUM=1 

Loop for succesive display capability. 

DO WHILE( IDUM.EQ. 1) 

IDUM=0 

Request for column or row display. 

WRITE( IMP, 300) 

READ( LEC, 100 ) IND 
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c 



c 



c 



c 



IF ( IxMD. EQ. ' 1 ' ) THEN 

If column display is requested; 

CALL CDI SP ( LEG , IMP , F LAGl , NCOL , COLMNE , NC , NCO , 

1 NC I N , RM I N , RMAX , NT , NTR , NT I N , NKE Y , MNE , 

2 NN , iNM , NRANK , MRANK , NNU , KMN ) 

IDUM=1 

ELSE IF (IND.EQ.'2') THEN 

If row display is requested; 

CALL RDISP(LEC, IMP , FLAG2 , NROW , RCWMNEl , NR , NRG , 

1 NRIN, ROWMNE2 , IJ , A , B , SUPl , SUP2 , SN , 

2 NOROW, NB ROW) 

IDUM=1 

If <CR> stop the loop. 

ELSE IF (IND.EQ.' ') THEN 
IDUM=0 

If invalid character is hit give an error message. 
ELSE 

WRITE( IMP, 400) 

IDUM=1 
ExND IF 
END DO 
END IF 



C FORMATS 

C 

C 

100 FORMAT(A24) 

200 FORMAT (///'$', 3X, ' Name of header' 's file : .’ ) 
300 FORMAT ( ///4X , 'Column informations 

1 /4X, 'Row informations :2' 

2 /'$', 3X ,' Answer :') 

400 FORMAT ( /3X, ' INVALID CHARACTER!!') 

RETURN 

END 



SUBROUTINE MODIFY( LEC, IMP , LOGN , FLAG 1 , FLAG 2 , NCOL, NROW, 

1 COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2 ROWMNE 2 , RM I N , RMAX , NT , NTR , NT I N , NKE Y , MNE , 

3 NN,NM,IJ,A,B, NRANK , MRANK , NNU , KMN , SUP 1 , 

4 SUP2 , SN, NOROW, NBROW) 

c 

C This subroutine is used for modification of an existing 
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header . 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



ARGUMENTS 

LEG 

IMP 

LOGN 

FLAGl 



FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 

ROWMNEl 

NR 

NRO 

NR IN 
ROWMNE2 
RMIN, RMAX 



NT 

NTR 

NT I N 
NKEY 

MNE 

NN 

NM 



The logical 
terminal. 

The logical 
terminal , 

The logical 
header, s data 
Integer array 
to indicate 



unit 


number 


for 


vritipig on 


zhe 


unit 


number 


for 


reading from 


zhe 


unit 


for the 


f i 


le on which 


zhe 



will be stored. 

of six elements used as flag 
:he existence or not of the 

;o lum.ns . 



several informations regarding rhe 
The corresponding flag for rows. 

The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names 
The numbers of columns for which have been 
assigned names. 

The invert relative addresses of COLMNE, 
Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE . 
Array storing the mnemonics of sets of rows 
Arrays storing the minimum and maximum 
values between which tracing 
going to take place. 

The number of columns for 
extrema have been assigned. 

The column numbers for 
extrema have been assigned. 

The invert relative addresses of RMIN, RMAX. 
Array storing the numbers of columns which 
will be used as sorting guides. 

Array storing the names of columns which 
will be used as sorting guides. 

The number of repeated sortings 
column numbers. 

The number of repeated sortings 



of the 
which 
wh i ch 



data 



•acing 
■ac ing 



acco rd i ng 
according 



c 






column mnemonic names. 






c 


IJ 




The number of assigned tracing 


extrema sets 


c 


A,B 




Arrays storing the mumber 


o f 


row on which 


c 






starts a set of common name 


rows and the 


c 






corresponding on which ends 


the 


set . 


c 


NRANK 


: 


Array storing the numbers 


o f 


columns that 


c 






assign the ranking of data 






c 


MRANK 


: 


Array storing the' names 


of 


columns that 


c 






assign the ranking of data 






c 


NNU 




The number of columns used 


for 


ranking. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



KMN : The number of column names used for ran/:ing 

SUP1,SUP2 : Arrays storing the number of rov on vhich 

starts suppression of rows and the 
corresponding on wh i ch ends the suppress ion 
SN : The number of assigned suppressions. 

NOROW : Array the numbers of rows used as guides 

for the ranking of the rows. 

NBROW : The number of row numbers used for row 

ranking 



C 

C 



c 



C 



c 



C 



c 



IMPLICIT INTEGER*2 (l-N) 

INTEGER*2 SN,FLAG1(6) ,FLAG2(4) ,NKEY(128) ,NRANK(128) , 

1 3(128) ,SUP1(128) ,SUP2(128) ,NCO(128) ,NC:n(123) , 

2 NRO (128), NTR (128),NTIN(128),NRIN(2048), 

3 NOROW(2048) ,A(128) 

REAL*4 RMIN( 128 ) ,RMAX( 128 ) 

CHARACTER* 2 4 FNAME , COLMNE ( 128 ) ,MNE( 128 ) , MRANK ( 123 ) , 

1 ROWMNEl ( 2048 ) , ROWMNE2 ( 128 ) , IND, HI FNAME, 

2 H2 FNAME 
LOGICAL*! STAT,STAT1,STAT2 

Request the name of the file where the data of the 
existing header are stored. 

WRITE( IMP, 200 ) 

READ( LEC, 100 ) FNAME 
INQUIRE(FILE=FNAME, EXIST=STAT) 

If the file exists open it. 

IF (STAT .EQ. .TRUE. ) THEN 

OPEN ( UN I T= LOGN , F I LE = FNAME , STATUS^ ' OLD ' ) 

REWIND LOGN 

Read the data of the existing header. 

CALL READER ( LOGN , FLAGl , FLAG2 , NCOL , NROW , KMN , NNU , NN , NT-l , 

1 I J , A , B , COLMNE , NC , NCO , NC I N , RM I N , RMAX , NT , NTR , 

2 NT I N , NKEY , MNE , NRANK , MRANK , ROWMNE 1 , NR , NRO , 

3 NRIN,R0WMNE2 , SUPl , SUP2 , SN , NOROW , NBROW ) 

Close the old file. 

CLOSE(UNIT=LOGN) 

Open a new file with the same name. 

OPEN ( UNI T= LOGN, FI LE=FNAME, STATUS= ' NEW' ) 

I DUM= 1 

Loop for succesive modification capability. 
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ip»ujroh-^ roh-* (ji»i^u3rsjh-* 



c 



c 



c 



c 

c 



c 



DO WHILE ( IDUM. EQ. 1 ) 
IDUM=0 



Request for column or row modification, 

WRITS( IMP, 400) 

READ(LEC, 100) IND 

If column modification is desired; 

IF ( IND.EQ, ’ 1 ' ) THEN 

Call COLMOD for column modification. 

CALL COLMOD (LEC, IMP , FLAG 1 , .NCOL , NROW , COLMNE , NC , 

1 NCO , NC I N , RM I N , RMAX , NT , NTR , NT I N , 

2 NKEY , MNE , NN , NM , NRANK , MRANK , NNU , KMN ) 

Call WRITER to record the modified header's 
data . 

CALL WRITER ( LOGN, FLAGl , FLAG2 , NCOL , NROW , KMN , 

NNU , NN , NM , I J , A , B , COLMNE , NC , NCO , 

NCI N , RMI N , RMAX , .NT , NTR , .NT I N , NKEY , 
MNE , NRANK , MRANK , ROW>lNEl , NR , NRO , 

NR I N , ROWMNE 2 , SUP 1 , SUP 2 , SN , .NOROW , 
NBROW) 

IDUM=1 



If row modification is desired; 

ELSE IF (IND.EQ. '2') THEN 

Call ROWMOD for row modification. 

CALL ROWMOD ( LEC , IMP , FLAG2 , NCOL , NROW , ROW’MNEl , .NR , 
NRO , NRIN , ROWMNE2 , I J , A, 3 , SUPl , SUP2 , 
SN, NOROW, NBROW) 

Call WRITER to record the modified header’s 
data . 



CALL WRITER ( LOGN , FLAGl , FLAG2 , NCOL , NROW , KMN , .NNU , 
NN , NM , I J , A , B , COLMNE , NC , NCO , NC I N , 

RM I N , RMAX , NT , NTR , NT I N , NKEY , NME , 

NRANK , MRANK , ROWMNE 1 , NR , NRO , NR I N , 
ROWMNE 2 , SUPl , SUP 2 , SN , .NOROW , NBROW ) 

IDUM=1 

If <CR> stop the loop. 

ELSE IF (IND.EQ. ' ' ) THEN 
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IDUM=0 



C 



c 



If invalid character is hit give an error message. 
ELSE 

WRITE( IMP, 500 ) 

IDUM=1 
END IF 
END DO 

If the file does not exist give an error message. 

ELSE 

WRITE( IMP, 300 ) 

I DUM= 1 
END IF 



C FORMATS 

C 

c 

100 FORMAT (A24) 

200 FORMAT (///'$', 3X, 'Name of header' 's file :') 

300 FORMAT ( ///4X, ' THE FILE DOES NOT EXIST!!') 

400 FORMAT ( ///4X, ' Column :l'/4X,'Row ;2'/'$',3X, 

1 ' Answer : ' ) 

500 FORMAT(/3X, ' INVALID CHARACTER! ! ' ) 

RETURN 

END 



SUBROUTINE MERGE (LEC, IMP , LOGN , FLAGl , FLAG2 , NCOL , NROW , 

1 COLMNE , NC , NCO , NC I N , ROW^tNE 1 , NR , NRO , NR I 

2 ROWMNE2 , RM I N , RMAX , NT , NTR , NT I N , NKE Y , .MN 

3 NN,NM,IJ,A,B, NRANK , MRANK , NNU , KMN , SUP 1 , 

4 SUP2 , SN, NOROW, NBROW) 

i( ic i( i( ic ie ic i( i( ic ic ic i( ic i< i( ic ie if i< ic i( i( ic i: i( iK if ir -k -k -k ie -k -k -k -k -k ic it: if: -k -k 'k 

c 

C This subroutine is used to merge two existing headers. 

C The merging can be executed in the row- row or 

C column-column sense. 

C 

C ARGUMENTS 

C 

C ARGUMENTS 

C 

c 

C LEC 

C 

C IMP 

C 

C LOGN 

C 



The logical unit number for writing on the 
terminal . 

The logical, unit number for reading from the 
terminal. 

The logical unit for the file on which the 
header, s data will be stored. 
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10 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c** 



flag: 



FLAG 2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 

ROWMNEl 

NR 

NRO 

NR IN 
ROWMNE2 
RMIN, RMAX 



NT 

NTR 

NT IN 
NKEY 

MNE 

NN 

NM 

IJ 

A,B 

NRANK 

MRANK 

NNU 

KMN 

SUPl , SUP2 



SN 

NOROW 

NBROW 



maximum 
data is 

tracing 

t rac i nc 



Integer array of six elemencs used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
The corresponding flag for rows. 

The number of columns. 

The nu.mber of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnem.onic names 
The numbers of columns for which have been 
assigned names. 

The inverc relative addresses of COL.MNE. 
Array storing the row mnemonic nam.es. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE. 
Array storing the mne.monics of sets of rows 
Arrays storing the minimum and 
values between which tracing of the 
going to take place. 

The number of columns for which 
extrema have been assigned. 

The column numbers for which 
extrema have been assigned. 

The invert relative addresses of RMIN, RMAX. 
Array storing the numbers of columns which 
will be used as sorting guides. 

Array storing the names of columns which 
will be used as sorting guides. 

The number of repeated sortings 
column numbers. 

The number of repeated sortings 
column mnemonic names. 

The number of assigned tracing extre.ma sets 
Arrays storing the .mumber of row on which 
starts a set of common name rows and the 
corresponding on which ends the set. 

Array storing the numbers of 
assign the ranking of data 
Array storing the names of 
assign the ranking of data 
The number of columns used for ranking. 

The number of column names used for ranking 
Arrays storing the number of row on which 
starts suppression of rows and the 

corresponding on which ends the suppression 
The number of assigned suppressions. 

Array the numbers of rows used as guides 
for the ranking of the rows. 

The. number of row numbers 
rank i ng 



according 

accordina 



columns that 
columns that 



used for row 
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IMPLICIT INTEGSR*2 (I-N) 

INTEGER*2 SN,?LAG1(6) , r LAG2 ( 4 ) ,NKEY(123) ,N'RANK(123) , 

1 B(128) ,SUP1(123) ,SUP2(128) ,NCO(i23) ,NCIN( 123) , 

2 NRO(128) ,NTR(128) ,NTIN(128) ,NRIN(2043) , 

3 NOROW( 2048 ) ,A( 123) 

REAL*4 RMIN(128) ,RxMAX(128) 

CHARACTER* 2 4 FNAME , COLMNE ( 1 2 8 ) ,MNE( 128 ) , MRANK ( 128 ) , 

1 ROWMNEl ( 2048 ) , ROWMNE2 ( 128 ) , IND , HlENAME , 

H 2 FNAME 

LOGICAL*! STAT,STAT1 ,STAT2 
I DUM= 1 

C Loop in case of user input errors. 

DO WHILE( IDUM. EQ. 1 ) 

IDUM=0 

C Request the name of the first file to be merged; 

C examine if it exists. 

WRITE( IMP, 400 ) 

READ ( LEC, 100 ) HI FNAME 

INQUIRE( FILE=H1 FNAME, EX IST=STAT1 ) 

C If does not exist print an error message and repeat 

C the request. 

IF (STATl.EQ. . FALSE. ) THEN 
WRITE( IMP, 300 ) 

IDUM=1 
ELSE 
END IF 

C Request the name of the second file to be merged; 

C , examine if it exists. 

WRITE( IMP, 500 ) 

READ(LEC, 100) H2FNAME 

INQUIRE( FILE=H2FNAME, EXIST=STAT2 ) 

C If does not exist print an error message and repeat 

C the request. 

IF (ST.2.T2 .EQ. . FALSE. ) THEN 
WRITE( IMP, 300 ) 

IDUM=1 
END IF 

’ C . If both files exist, request name for the new file. 

IF (STATl . EQ. .TRUE .. AND. STAT2 . EQ. .TRUE . ) THEN 
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WRITE ( IMP, 730 ) 
READ(LEC, 13G) FN'.AME 



C 



Examine if zhe file exists. 



INQUIRE(FILS = FN^3^E, EXIST = ST.AT) 

C If not, request if column or row merc'.ng is going to 

C be executed. 



IF (STAT.SQ. .FALSE. ) THEN 
WRITE ( IMP, 600 ) 
READ(LEC, 100 ) IND 



C 



If row merging call COMROW 



100 

200 

300 

400 



1 

2 

3 

4 



1 

2 

3 

4 

5 



1 

2 

3 

4 



1 

2 

3 

4 

5 



IF ( IND.EQ. ' 1 ' ) THEN 

CALL COMROW (LEG, IMP , LOGN , .NCOL , NROW , FLAG 1 , 

FLAG2 , COLMNE , NC , NCO , .NC I N , I J , A , 3 , 
ROWMNE 1 , NR , NRO , NR I N , ROWT-LNE 2 , 

H 1 F NAME , H 2 FNAME , .RM I N , R.MAX , NT , 

NTR , NT I N ) 

OPEN(UNIT=LOGN, FILE=FNAME,STATUS= ' NEW' ) 

CALL writer! LOGN, FLAG 1 , FLAG2 , .NCOL , NROW , KMN , 
NNU ,NN,NM,IJ,A,3, COLMNE , NC , NCO , 

NC I N , RM I N , RMAX , NT , .NTR , NT I N , NKE Y , 
MNE , NRANK , MRANK , ROWMNE 1 , NR , NRO , 

.NR I N , ROWMNE2 , SUP 1 , SUP 2 , SN , NOROW , 
NBROW) 

ELSE IF (IND.EQ. '2') THEN 

CALL COMCOL(LEC, IMP , LOGN , NCOL , NROW , FLAGl , 

FLAG2 , COLMNE , NC , NCO , .NC I N , I J , A , 3 , 
ROWMNE 1 , NR , NRO , NR I N , .ROWMNE 2 , 
HIFNAME , H2 FNAME , .RM I N , .RMAX , .NT , 
NTR,NTIN) 

OPEN (UN I T = LOGN, FI LE= FNAME , ST.ATUS= ' NEW' ) 

CALL writer! LOGN, FLAGl , FLAG2 , .NCOL , NROW , KMN , 
NNU , NN , .NM , I J , A , 3 , COLMNE , .NC , .NCO , 
NC I N , RM I N , RMAX , .NT , NTR , .NT I N , NKEY , 
MNE , N.RANK , MRANK , ROWMNE 1 , NR , NRO , 
NRI.N,ROWMNE2 , SUPl , SUP2 , SN,.NOROW, 
NBROW) 



END IF 
ELSE 

WRITE! IMP, 200 ) 

IDUM=1 
END IF 
END IF 
END DO 
format! A2 4 ) 

FORMAT !///4X, 'THE FILE ALREADY EXIST!!') 

FORMAT !///4X, 'THE FILE DOES NOT EXIST!!') 
FORMAT!///' $', 3X, 'Name of first Header' 's file :') 
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500 FORMAT 3X , 'Name of second Header' 's file :') 
600 FORMAT ( ///4X, ' Row merging :1'/4X, 

1 'Column merging :2', 

2 /'$', 3X, ' Answer :') 

700 FORMAT ('$', 3X , 'Name of new Header' 's file :’) 
RETURN 
END 



Qic ic i( ic if ic i( ic ic i( ic ic -k ic -k -k -k -k i( ik -k -k *: -k -k -k -k -k -K -k -k ^ -k :k k r -X 

SUBROUTINE CRINFO(LEC, IMP, FLAG 1 , FLAG2 , NCOL , NROW , COLMNE , 

1 NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2 ROWMNE 2 , RM I N , RMAX , NT , NTR , NT I N , NKE Y , 

3 MNE , NN , NM , I J , A , 3 , NRANK , MRANK , NNU , KMN , 

4 SUPl , SUP2 , SN, NOROW, NBROW) 

Q* -k ******* -k * -k ******** -k ************************* -k -k * * * * -^< * -k -k -K -k X -X * 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



ARGUMENTS 

ARGUMENTS 



c 

c 


LEC 


: The logical unit 
terminal . 


number for writing on 


the 


c 

c 


IMP 


: The logical unit 
terminal . 


number for reading from 


the 


c 

c 


LOGN 


: The logical unit 
header, s data wil 


for the file on which 
1 be stored. 


the 


c 

c 


FLAGl 


: Integer array of 

to indicate the 


six ele.ments used as f 
existence or not of 


lag 

the 



FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 
ROWMNE 1 
NR 
NRO 

NRIN 
ROWMNE 2 
RMIN,RMAX 



NT 
NTR 
NT IN 



several informations regarding the columns. 
The corresponding flag for rows. 

The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names 
The numbers of columns for which have been 
assigned names. 

The invert relative addresses of COLMNE. 
Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE. 
Array storing the mnemonics of sets of rows 



Arrays storing the minimum 
values between which tracing 
going to take place. 

The number of columns for 
.extrema have been assigned. 
The column numbers for 
extrema have been assigned. 
The invert relative addresses 



and 

of che 
wh i ch 
which 



max imum 
data is 

t rac ing 

t r ac i ng 



of RMIN,RMAX, 
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olumns which 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



NKEY 



MNE 

NN 

NM 

IJ 

A,B 



NRANK 

MRANK 

NNU 

KMN 

SUPl , SUP2 



SN 

NO ROW 
NBROW 



Array scoring Che numbers of c 
will be used as sorcing guides. 

Array scoring the names of columns which 
will be used as sorcing guides. 

The number of repeated sortings according 
colu.mn numbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of assigned tracing excre.ma secs 
Arrays storing the mumber of row on which 
starts a set of common name rows and the 
corresponding on which ends the set. 

Array storing the numbers of columns chat 
assign the ranking of data 

Array storing the names of columns chat 

assign the ranking of data 

The number of columns used for ranking. 

The number of column names used for ranking 
Arrays storing the number of row on which 
starts suppression of rows and the 
corresponding on which ends the suppression 
The number of assigned suppressions. 

Array the numbers of rows used as guides 
for the ranking of the rows. 

The number of row numbers used for row 
rank i ng 






IMPLICIT INTEGER*2 (l-N) 

INTEGER* 2 FLAGl ( 6 ) ,NCO( 128 ) , FLAG2 ( 4 ) ,NKEY( 128 ) , NTR( 123 ) , 

1 SUPl ( 128 ) ,SUP2 ( 128 ) ,NRO( 128 ) ,NCIN( 128 ) , 

2 NTIN(128) ,NRIN( 2048) ,NOROW( 2048 ) ,SN,NR.ANK( 123) , 
REAL*4 RMIN( 128 ) , RMAX( 128 ) 

CHARACTER*! IND 

CHARACTER* 2 4 COLMNE( 128 ) ,MNE( 123 ) , MRANK ( 123 ) , 

1 ROWMNEl ( 2048 ), R0WMNE2 ( 128 ) 

NBYTES=NCOL*4 

IDUM=1 

DO WHILE ( IDUM.EQ. 1) 

IDUM=0 

WRITE (IMP, 100) 

READ (LEC,200) IND 
IF ( IND.EQ. ' 1 ' ) THEN 

CALL COLINF ( LEC , IMP , FLAGl , NCOL , NRCW, COLMNE , NC , 

1 NCO , NC I N , RM I N , RMAX , NT , .NTR , NT I N , .NKEY , 

2 MNE , NN , NM , NRANK , MRANK , NNU , KMN ) 

IDUM=1 

ELSE IF (IND.EQ. '2') THEN 
' CALL ROWINF(LEC, IMP, FLAG2, NCOL, NROW,. ROWMNEl, 

1 NR,NRO,NRIN,ROWMNE2, I J , A , B , SUPl , SUP2 , 

2 SN, NOROW, NBROW) 
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IDUM=1 

ELSE IF ( IND. EQ. ' 

RETURN 

ELSE 

WRITE( IMP, 300 ) 



T'-FM' 



100 


IDUM=1 
END IF 
END DO 

FORMAT (///4X 


, 'Column information 




1 


'Row information 




2 


' Answer 


200 


FORMAT (A24) 




300 


FORMAT (//6X, ' 


INVALID CHARACTER! I ' ) 




END 





1V4X, 

2’ ,/' S’ ,3X, 
’ ) 



'■* * 



( 2 * * 
C 



c 

c 

c 



SUBROUT I NE COL I NF ( LEC , I MP , FLAG 1 , NCOL , NROW , COLMNE , NC , NCO , 

1 NC I N , RM I N , RMAX , NT , NTR , NT I N , NKE Y , MNE , 

2 NN , NM , NRANK , MRANK , NNU , KMN ) 

***:ic:ic**^*********ir:*:***:*r-:*r***:it*:*::*r*7t:*::ic**^7t:*r7t*-;*r';*r*****:i:-*:*:-*-:*rx:*::*::*r'*r 

ARGUMENTS 



C 


LEC 




The logical unit number for writing on the 


c 






terminal . 


c 


IMP 




The logical unit number for reading from the 


c 






terminal . 


c 


FLAGl 




Integer array of six elements used as flag 


c 






to indicate the existence or not of the 


c 






several informations regarding the columns. 


c 


FLAG2 




The corresponding flag for rows. 


c 


NCOL 




The number of columns. 


c 


NROW 




The number of rows. 


c 


COLMNE 




Array storing the column mnemonic names. 


c 


NC 




The number of assigned column mne.monic names. 


c 


NCO 




The numbers of columns for which names have 


c 






been assigned. 


c 


NCIN 




The invert relative addresses of COLMNE. 


c 


RM I N , RMAX 




Arrays storing the minimum and maximum 


c 






values between which tracing of the data is 


c 






going to take place. 


c 


NT 


1 


The number of columns for which tracing 


c 






extrema have been assigned. 


c 


NTR 


1 


The column numbers for which tracing extre.ma 


c 






have been assigned. 


c 


NTIN 


1 


The invert relative addresses of RMIN,RMAX. 


c 


NKEY 


: 


Array storing the numbers of columns which 


c 






will be used as sorting guides. 


c 


MNE 


: 


Array storing the names of columns which 


c 






will be used as sorting guides. 


c 


NN 


: 


The number of repeated sortings according 


c 






column numbers. 
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onnnnonnnn 



NM 



NRANK 



MRANK 



NNU 

KMN 



The number of repeaced sornings accordir. 
column mnemonic na.mes. 

Array scoring che n’xmbers of columns cha 
assign the ranking of data 

Array storing the names of columns tha 

assign the ranking of data 

The number of columns used for ranking. 

The number of column na.mes used for ranking 






IMPLICIT INTEGER*2 (l-N) 

INTEGER* 2 FLAG1(6) ,NTIN(128) ,NKEY(123) , NRANK (128) , 

1 NCO(128) ,NCIN(128) ,NTR(123) 

REAL*4 RMIN( 128 ) , RMAX( 123 ) 

CHARACTER *2 IND 

CHARACTER* 2 4 COLMNE( 128 ) ,MNE( 128 ) , MRANK { 123 ) 

I DUM= 1 

DO WHILE ( IDUM.EQ. 1) 

IDUM=0 

WRITE ( IMP, 100 ) 

READ (LEC,200) IND 

IF ( IND.EQ. ' 1 ' ) THEN 
WRITE( IMP, 500 ) 

READ(LEC, 600 ) NCL 
IF (NCL.LE.128) THEN 
NCOL=NCL 
ELSE 

WRITE( IMP, 800 ) 

IDUM=1 
END IF 
I DUM= 1 

ELSE IF (IND.EQ. '2') THEN 
IF (NCOL.NE.O) THEN 

CALL COLNAM ( LEC , I MP , FLAGl , NCOL , COLMNE , NC , NCO , 

1 NC I N ) 

IDUM=1 

ELSE 

WRITE( IMP, 400 ) 

IDUM=1 
END IF 

ELSE IF (IND.EQ. '3') THEN 
I F ( NCOL . NE . 0 ) THEN 

CALL TRSFRM ( LEC , I MP , FLAGl , NCOL , NROW , COLMNE , NC , 
1 NCO , NC I N ) 

IDUM=1 

ELSE 

WRITE( IMP, 400 ) 

■ I DUM= 1 
END I F 

ELSE IF (IND.EQ. '4') THEN 
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IF (NCOL.NE.O) THEN 

CALL EXTREM ( LEG , IMP , FLAGl , NCOL , NROW , R.MI N , RMAX , 

1 NT,NTR,NTIN) 

IDUM=1 

ELSE 

WRITE( IMP, 400) 

IDUM=1 
END IF 

ELSE IF (IND.EQ.'S') THEN 
IF (NCOL.NE.O) THEN 

CALL MULSOR { LEC , IMP , NCOL , NROW , FLAG 1 , .NKEY , MNE , 

1 NN,NM,COLMNE) 

IDUM=1 

ELSE 

WRITE( IMP, 400 ) 

IDUM=1 
END IF 

ELSE IF (IND.EQ.'S') THEN 
IF (NCOL.NE.O) THEN 

CALL RANDOM (LEC, IMP, NCOL, NROW) 

IDUM=1 

ELSE 

WRITE( IMP, 400) 

IDUM=1 
END IF 

ELSE IF (IND.EQ.'?') THEN 
IF (NCOL.NE.O) THEN 

CALL CRANK ( LEC , IMP , NCOL , NROW , FLAG 1 , NRANK , MRANK , 

1 NNU,KMN,COLMNE) 

IDUM=1 

ELSE 

WRITE ( IMP, 400 ) 

IDUM=1 
END IF 

ELSE IF (IND.EQ.'S') THEN 

CALL CDISP (LEC, IMP, FLAGl, NCOL, COLMNE,NC,NCO,.NC IN, 

1 RM I N , RMAX , NT , NTR , NT I N , NKEY , MNE , 

2 NN , NM , NRANK , MRANK , NNU , KMN ) 

IDUM=1 

ELSE IF (IND.EQ.'S') THEN 

CALL COLMOD ( LEC , IMP , FLAGl , NCOL , NROW , COLMNE , NC , 

1 NCO , NC I N , RM I N , RMAX , NT , NTR , NT I N , NKEY , 

2 MNE , NN , NM , NRANK , MRANK , NNU , KMN ) 

IDUM=1 

ELSE IF ( IND.EQ. ' 10 ' ) THEN 

IF (NCOL.NE.O. AND. NROW. NE.O) THEN 

CALL SEEDAT ( LEC , IMP , NCOL , NROW ,1,1) 

IDUM=1 

ELSE 

WRITE( IMP, 700) 

IDUM=1 
END IF 
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100 



200 

300 

400 

500 

600 

700 

800 



ELSE IF ( IND. EQ. ' 11 ' ) THEN 

IF (NCOL.NE . 0 . AND . NRCW. NE . 0 ) THEN 

CALL DISDAT(LEC, I M? , NCCL , NRCW , 1,1) 

IDUM=1 

ELSE 

WRITE ( IMP, 700 ) 

IDUM=1 
END IF 

ELSE IF (IND.EQ.' ') THEN 
RETURN 
ELSE 

WRITE( IMP, 300 ) 

IDUM=1 
END IF 
END DO 

FORMAT ( ///4X, ’ SELECTION TABLE FOR COLUMN INFORMAT 



1 

2 

3 

4 

5 

6 

7 

8 
9 
1 
2 
3 



4X, 



7X, 'Number of columns (mandatory) 
'Mnemonic names 
' Trans format ions 
'Tracing extrema 
' Mul t i -sor t i ng column guides 
'Randomization of data 
'Column ranking 
'Display column informations 
'Modification of column info 
'Data retrieval 
'Display/print of data file 



IONS ' / 

'/ 

/7X, 
/7X, 
/7X, 
/7X, 
/7X, 
/7X, 
/7X, 
/7X, 
/7X, 
10 ' /7X, 
11 '// 



4 ' $ ' , 3X , ' Answer : ' ) 

FORMAT (A24) 

FORMAT (//3X, ' INVALID CHARACTER! ! ' ) 

FORMAT (///4X, 'NUMBER OF COLUMNS HAS NOT BEEN', 

1 /lOX, ' ASSIGNED! ! ' ) 

FORMAT (//'$', 3X ,' Ass ign number of columns :') 

FORMAT (15) 

FORMAT (/// 4 X, ' NUMBER OF COLUMNS AND ROWS MUST BE' 

1 /12X, ' ASSIGNED TO DISPLAY THE DATA FILE!!') 

FORMAT (///4X, 'THE ASSIGNED NUMBER OF COLUMNS EXEEDS ' / 

1 4X,' THE MAXIMUM PERMITTED 128') 

RETURN 

END 



(|^*****************************************************-*r-ii:****** 

SUBROUT I NE ROWI NF ( LEC , I MP , FLAG 2 , NCOL , NROW , ROWMNE 1 , NR , 

1 NROW, NR IN, ROWMNE 2 , I J , A , 3 , SUPl , SUP2 , 

2 SN, NOROW, NBROW) 

ic -k ic -k ic ~k ic -k ~k -k 'k -k -:k iic -k i< i< -k 'k i< i< i< k i< -k -k k k i< i< iK i>: -k k 'k i< -k i< i< i< ~k ic iK i< 

C 

C This subroutine is used for assignment of the several 

C row informations 

C ARGUMENTS 

C 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Q* * * 



LEC 

IMP 

FLAG2 

NCOL 

NROW 

ROWMNEl 

NR 

NRO 

NR IN 
ROWMNE2 
IJ 
A,B 



SUPl , SUP2 



SN 

NOROW 

NBROW 



unit numoer for 



unit numoer for 



writing on 
reading from 



The logical 
terminal . 

The logical 
terminal . 

The corresponding flag for rows. 

The number of columns. 

rows . 

the row mnemonic names, 
assigned row mnemonic names 
of rows for which names h 



tne 

the 



The number of 
Array storing 
The number of 
The numbers 
been assigned. 

The invert relative addresses of ROWMNE . 
Array storing the mnemonics of sets of ro 
The number of assigned tracing extrema se 
Arrays storing the mumber of row on wh 
starts a set of common name rows and 
corresponding on which ends the set. 
Arrays storing the number of row on wh 
starts suppression of rows and 
corresponding on which ends the suppress 
The number of assigned suppressions. 

Array the numbers of rows used as guides 
the ranking of the rows. 

The number of row numbers used for 
ranking . 



ave 



- s> . 
i ch 



1 
t. 

ion - 

for 

row 



★ ★ 






IMPLICIT INTEGER*2 (l-N) 

INTEGER*2 SN,FLAG1(6) ,FLAG2(4) ,NKEY( 128) , NRANK ( 128) , 

1 B(128) , SUPl (128) ,SUP2(128) , NRO (128) , 

2 NRIN( 2048 ) ,NOROW( 2048 ) , A( 128 ) , IJCOMP( 128 ) 
REAL*4 RMIN(128) ,RMAX(128) 

CHARACTER* 2 IND 
CHARACTER*? MODROW 

CHARACTER* 2 4 F.NAME , COLMNE ( 128 ) , MNE ( 128 ) ,MRANK( 128 ) , 

1 ROWMNEl ( 2048 ), ROWMNE2 ( 128 ) 

DIMENSION NOCOL(256) 

DATA MODROW/ ' rows ' / 



I DUM= 1 

DO WHILE ( IDUM. EQ. 1 ) 

IDUM=0 

WRITE( IMP, 100) 
READ(LEC,200) IND 
IF ( IND.EQ. ’ 1 ' ) THEN 
WRITE( IMP, 500 ) 
READ(LEC, 600 ) NROW 
I D.UM= 1 

ELSE IF (IND.EQ. '2') THEN 
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r n 



IF (NROW.NE.O) THEN 

CALL ROWNr-M(LEC, IM? , FLAG2 , NRCW , ROwMNE 1 , NR , NRG , 

1 NR I N , ROWI-INE 2 , IJ , A , 3 ) 

IDUM=1 

ELSE 

WRITE( IMP, 400 ) 

I DUM= 1 
END IF 

ELSE IF ( IND.EQ. ' 3 ' )THEN 
IF (NROW.NE.O) THEN 

CALL ROWSUP ( LEC , IMP , FLAG 2 , NCOL , NROW , SUPi , SUP 2 , 

1 SN,ROWMNE2,A,3) 

IDUM=1 

ELSE 

WRITE( IMP, 400 ) 

I DUM= 1 
END IF 

ELSE IF (IND.EQ. '4') THEN 

CALL REJECT (LEC, IMP, NROW, IJCOMP , 1 , 1 , 1 , 1 , 1 ) 

IDUM=1 

ELSE IF (IND.EQ. '5') THEN 

CALL ANAD I S ( LEC , I MP , NROW , NROW , NOROW , N3RGW , MODRGW ) 
CALL REORD( LEC, IMP , NCOL , NROW , FLAG2 , NORGW , N3R0W ) 
IDUM=1 

ELSE IF (IND.EQ. '6') THEN 

CALL RDISP (LEC, IMP,FLAG2,NROW,ROWO-lNSi,NR,.NRO, 

1 NRIN, ROWMNE2 , IJ , A , B , SUP 1 , SUP2 , SN , 

2 NOROW, NB ROW) 

IDUM=1 

ELSE IF (IND.EQ. '7') THEN 

CALL ROWMOD( LEC , IMP , FLAG2 , NCOL , NROW , ROWMNEi , NR , NRO , 

1 NRIN,ROWMNE2 , I J , A , B , SUPI , SUP2 , SN , NOROW , 

2 NBROW) 

IDUM=1 

ELSE IF (IND.EQ. '8') THEN 

I F ( NCOL . NE . 0 . AND . NROW . NE , 0 ) THEN 

CALL SEEDAT( LEC, I MP , NCOL , NROW , 1,1) 

IDUM=1 

ELSE 

WRITE( IMP, 700 ) 

IDUM=0 
END IF 

ELSE IF (IND.EQ. '9') THEN 

I F ( NCOL . NE , 0 . AND . NROW , NE . 0 ) THEN 

CALL D I SDAT ( LEC , I MP , NCOL , NROW ,1,1) 

I DUM= 1 
ELSE 

WRITE( IMP, 700 ) 

IDUM=0 
END I F 

ELSE IF (IND.EQ.' ') THEN 
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RETURN 

ELSE 

WRITE ( IMP, 300 ) 
IDUM=1 
END IF 
END DO 



100 


FORMAT(///4X, ’ SELECTION TABLE FOR ROW INFORMATIONS'/ 




1 


4X, ' 


' / 




2 


7X, 'Number of rows (mandatory) 


: 1 ' /7X, 




3 


'Mnemonic names 


:2'/7X, 




4 


'Row suppression 


:3'/7X, 




5 


'Row rejection 


;4 ' /7X, 




6 


'Row ranking 


: 5 ' /7X , 




7 


'Display row informations 


:6' /7X, 




8 


'Modification of row info 


:7'/7X, 




9 


'Data retrieval 


:3' /7X, 




1 


'Display/print of data file 


: 9' // 




2 ' $ 


' , 3X , ' Answer : ’ ) 




200 


FORMAT (A2 4 ) 






300 


FORMAT ( ///4X, 


' INVALID CHARACTER! ! ' ) 




400 


FORMAT (///4X, 


'NUMBER OF ROWS HAS NOT BEEN ASS 


IGNED! ! ' ) 


500 


FORMAT {//' $ ' , 


3X, 'Assign number of rows :') 




600 


FORMAT (13) 






700 


FORMAT (///4X, 


'NUMBER OF COLUMNS AND ROWS MUST 


BE ' 




1 /4X, 


'ASSIGNED TO DISPLAY THE DATA FILE!!') 




RETURN 








END 







SUBROUT I NE COLNAM ( LEG , I MP , FLAGl , NCOL , COLMNE , NC , NCO , NC I N ) 

c 

C This subroutine is used for assignment of names to 

C columns 

C ARGUMENTS 



C 

C 


LEC 


: The 


logical unit number for writing on 


the 


c 




terminal. 




c 


IMP 


: The 


logical unit number for reading from 


the 


c 




terminal . 




c 


FLAGl 


: Integer array of six elements used as 


flag 


c 




to 


indicate the existence or not of 


the 


c 




seve 


ral informations regarding the columns. 


c 


COLMNE 


: Ar ra 


y storing the column mnemonic names. 




c 


NC 


: The 


number of assigned column mnemonic names 


c 


NCO 


: The 


numbers of columns for which names 


have 


c 




been 


assigned . 




c 


NCIN 


: The 


invert relative addresses of COLMNE. 





C 
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IMPLICIT INTEGSR*2 (I-M) 

IMTEGSR*2 LEC, IMP , NCOL , r LAGl ( 6 ) ,NCO(i23) ,NCIN(128) 
CHARACTER*24 COLMNE ( 1 2 8 ) , NAME 

FLAGl (1 )=1 
1 = 1 
NC = 1 

DO WHILE ( I .NE.O) 

WRITE( IMP, 100 ) 

READ(LEC, 200) I 
IF (I.LE.NCOL) THEN 
IF (I.EQ.O) THEN 
NC=NC-1 

CALL EXSH1(NC0,NCIN,NC, 1) 

RETURN 

ELSE 

NCO ( NC ) = I 
WRITE( IMP, 300 ) 

READ(LEC, 400 ) NAME 
COLMNE ( NC ) =NAME 
END IF 
ELSE 

WRITE( IMP, 500 ) 

END IF 
NC=NC+1 
END DO 

100 FORMAT (/'$', 3X ,' Ass ign column number(<CR> to RETURN) :') 

200 FORMAT(I5) 

300 FORMAT 3X ,' Ass ign mnemonic :') 

400 FORMAT(A24) 

500 FORMAT (//4X, 'THE ASSIGNED COLUMN NUMBER EXEEDS ', 

1 /7X, 'THE NUMBER OF COLUMNS I ! ’ ) 

RETURN 

END 

(]2************************:)t****************:*:*****'*:***:*:x7t**^t^*'4rir 

SUBROUT I NE TRSFRM ( LEC , IMP , FLAGl , NCOL , NROW , COLMNE , NC , NCO , 
1 NC I N ) 

C 



c 

c 

c 

c 


ARGUMENTS 










LEC 


: The logical unit number for 


writing on 


the 


c 




terminal . 








c 


IMP 


: The logical unit numbe 


r for 


reading from 


r h 0 


c 




terminal . 








c 


FLAGl 


: Integer array of six 


elements used as 


flag 


c 




to indicate the- existence 


or not of 


the 


c 




several informations r 


egarding the columns. 


c 


NCOL 


: The number of columns. 
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c 


NROW 


: The number of 


rows . 


c 


COLMNE 


: Array storing 


the column mnemonic names. 


c 


NC 


: The number of 


assigned column mnemonic names 


c 


NCO 


: The numbers of 


columns for which nam.es have 


c 




been assigned. 




c 


NC I N 


: The invert rel 


ative addresses of COLMNE. 



c 

Qie -k -k -k -k -k -k ii -k -k -k -k ■*: ~k ic -k ■*: -k ic -k -k :k ^ -k -k -k -k -k -k -k :k -k -k -k -k :k -k -k -k :k -k -k -k :k :k -k -k -k -k :k -k -k -k y: 

IMPLICIT INTEGER*2 (l-N) 

INTEGER*2 FLAG1(6) ,NCO(128) ,NCIN(12S) 

CHARACTER* 2 4 COLMNE ( 1 2 8 ) , TRANS 
FLAGl ( 1 ) =1 
WRITE( IMP, 100) 

INDEX=NC 
TRANS = ’A’ 

DO WHILE (TRANS. NS. ' ' ) 

READ(LEC,200) TRANS 
I F ( TRANS . NE . ’ ' ) THEN 

NC=NC+1 

NCO(NC) =NCOL+l 
COLMNE ( NC ) =TRANS 
NCOL=NCOL+l 
END IF 
END DO 

CALL EXSHl (NCO,NCIN,NC, 1) 

CALL CONV ( NCOL , NROW , COLMNE , NC , I NDEX ) 

100 FORMAT ( ///6X, ' AVAILABLE FUNCT I ONS ' /6X , 



1 • V2X, 



2 


' l.-LOGC[X] 


’ ,4X, 


’ 9 


.-ASIN[X] ’ /2X, 


3 


' 2.-LOG[X] 


' ,4X, 


' 10 


. -ACOS[X] ' /2X, 


4 


' 3 . -EXP[X] 


' ,4X, 


' 11 


. -ATAN[X] ' /2X, 


5 


' 4 . -ABS[X] 


' ,4X, 


' 12 


. -SINH[X j ’ /2X, 


6 


' 5 . -SIN[X] 


’ ,4X, 


' 13 


.-COSH[X] ' /2X, 


7 


’ 6.-COS[X] 


' ,4X, 


' 14 


.-TANH[X] ' /2X, 


8 


' 7 . -TAN[X] 


’ ,4X, 


' 15 


.-SQRT[X] '/2X, 


9 


' 8 . -ASINH[X] 


’//2X, 






1 


'Assign tran 


s forma 


t io 


ns : ' / ) 



200 FORMAT (A24) 

RETURN 

END 

SUBROUT I NE EXT REM ( LEC , I MP , FLAG 1 , NCOL , NROW , RM I N , RMAX , NT , 

1 NTR,NTIN) 

^************************************************************* 

C 

C This subroutine is used for assignment of tracing 

C extrema 

C 

C ARGUMENTS 



118 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



LEC 

IMP 

FLAGl 



NCOL 

RMIN, RMAX 

NT 
NTR 
NT IN 



The locical unit number for vritinc on z'r.e 
terminal . 

The logical unit number for reading from the 
terminal . 

Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
The number of columns. 

Arrays storing the minimum and maxi.mum. 
values between which tracing of the data is 
going to take place. 

The number of columns for which tracing 
extrema have been assigned. 

The column numbers for which tracing extrem.a 
have bee.n assigned. 

The invert relative addresses of .RMI.N,RMAX. 



■kic'k'k'k'kic 



’'k-k'k'ki('k-k'k'k'k:-k'k-k'k'X'k 



IMPLICIT INTEGER*2 (l-N) 

INTEGER* 2 LEC, IMP , NCOL , FLAGl ( 6 ) ,NTR( 123 ) ,NTIN( 123 ) 
REAL*4 RMIN(128) ,RMAX(128) ,FMIN(128) ,FMAX(123) 
CHARACTER*! IND 

FLAGl ( 2 ) =1 

CALL FINDMM(LEC, IMP , NCOL , NROW , FMI N , FMAX ) 

I DUM= 1 

DO WHILE ( IDUM.EQ. 1) 

IDUM=0 

WRITE( IMP, 100 ) 

READ (LEC, 200) IND 
IF ( IND. EQ. ' 0 ' ) THEN 
RETURN 

ELSE IF (IND.EQ.'l') THEN 
1 = 1 
NT=1 

DO WHILE ( I .NE.O) 

WRITE( IMP, 700 ) 

READ(LEC, 800 ) I 
IF ( I . NE . 0 ) THEN 
NTR (NT) =I 

WRITE( IMP, 300 ) FMIN(I) 

READ( LEC, 400 ) RMIN(NT) 

WRITE( IMP, 500) FMAX(I) 

READ ( LEC, 400 ) RMAX ( NT ) 

NT=NT+1 
END IF 
END DO 
• NT=NT-1 

ELSE IF (IND.EQ.' ') THEN 
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100 



200 

300 

400 

500 

600 

700 

800 



RETURN 
ELSE 

WRITE( IMP, 600 ) 

IDUM=1 
END IF 
END DO 

CALL EXSHl (NTR,NTIN, NT, 1 ) 

FORMAT ( ///4X ,' Imposed extrema for tracing 

1 'Original extrema 

2 'Answer 
FORMAT! A2 4 ) 

FORMAT! '$', 3X, ' MIN ! found) 

FORMAT !F14 .6) 

FORMAT !' S', 3X ,' MAX ! found) :', F14 . 6 , 2X ,' Imposed :') 
FORMAT !// 3X, ' INVALID CHARACTER!!') 

FORMAT !//'$', 3X ,' Ass ign column number!<CR> to RETURN) 
FORMAT ! I 5 ) 

RETURN 

END 



1 ' /4X 

:0'/' S' ,3X, 

: ' ) 

, F14 . 6 , 2X ,' Imposed 



SUBROUTINE MULSOR! LEC , IMP , NCOL , NROW , FLAGl , NKEY , MNE , NN , 

1 NM,COLMNE) 

C 

C This subroutine is used for assignment of sorting 

C column guides 

C 

C ARGUMENTS 

C 

c 

C LEC 

C 

C IMP 

C 

C NCOL 

C NROW 

C FLAGl 

C 
C 

C NKEY 

C 

C MNE 

C 

C NN 

C 

C NM 

C 

C COLMNE 

C 



The logical unit number for writing on the 
terminal. 

The logical unit number for reading from the 
terminal. 

The number of columns. 

The number of rows. 

Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
Array storing the numbers of columns which 
will be used as sorting guides. 

Array storing the names of columns which will 
be used as sorting guides. 

The number of repeated sortings according 
column numbers. 

The number of repeated sortings according 
column mnemonic names. 

Array storing the column mnemonic names. 
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100 

200 

400 

500 

600 

700 

800 



IMPLICIT ZNTEGER*2 (I-N) 

INTEGSR*2 FLAGK6) ,NKEY( 128) 

CHARACTER*! IND 

CHARACTER* 7 MODCOL 

CHARACTER* 2 4 MNE(128) ,COLMNE( 123) 

DATA MODCOL/' columns' / 

IDUM=1 

DO WHILE ( IDUM. EQ. 1 ) 

IDUM=0 

WRITE( IMP, 100 ) 

READ ( LEC, 200 ) IMD 
IF ( IND.EQ. ' 1 ' ) THEN 

IF (FLAGK4) .EQ.O) THExM 
FLAGl ( 3 ) =1 

CALL ANADIS(LEC, IMP , NCOL , NCOL , NKEY , NN , MODCOL ) 
CALL REARKLEC, IMP , NCOL , NROW , NKEY , NN ) 

ELSE 

WRITE ( IMP, 700 ) 

RETURN 
END IF 

ELSE IF (IND.EQ. '2') THEN 
IF ( FLAGl ( 1) .EQ.l) THEN 

IF (FLAGK3) .EQ.O) THEN 
FLAGK4) =1 
WRITE( IMP, 400 ) 

CALL AS3YMN( LEC, IMP , NCOL , COLMNE , NM , MNE ) 

CALL REAR2 ( LEC , I MP , NCOL , NROW , COLMNE , MNE , .VM ) 
ELSE 

WRITE( IMP, 800 ) 

RETURN 
END IF 
ELSE 

WRITE( IMP, 500 ) 

END IF 
ELSE 

WRITE( IMP, 600 ) 

IDUM=1 
END IF 
END DO 
RETURN 

FORMAT ( ///4X ,' 3y column number ;1'/4X, 

1 'By mnemonic name :2' 

2 /,'$', 3X , ' Answer : ' ) 

FORMAT (A2 4 ) 

FORMAT( ///4X , ' Ass ign column mnemonic names :') 
FORMAT(//4X, 'NO MNEMONIC NAMES HAVE BEEN ASSINGED!!') 
FORMAT (//4X, ' INVALID CHARACTER! I ' ) 

FORMAT (//4X, 'MULT I -SORTING GUIDES HAVE ALREADY BEEN'/ 

1 9X ' ASSIGNED BY MNEMONIC NAMES') 

FORMAT (//4X, 'MULTI -SORTING GUIDES HAVE ALREADY BEEN'/ 



121 



1 



9X ' ASSIGNED 3Y COLUMN NUMBERS') 



END 



( 2 *****************************************^*********'^***^***’'** 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



SUBROUT I NE CRANK ( LEC , I MP , NCOL , NROW , FLAG 1 , NRANK , MRANK , 

1 NNU , KMN , COLMNE ) 

This subroutine is used to assign column ranking by 
column number or column mnemonic names. 

ARGUMENTS 



LEC 

IMP 

NCOL 

NROW 

FLAGl 



NRANK 

MRANK 

NNU 

KMN 

COLMNE 



The logical unit number for writing on the 
terminal . 

The logical unit number for reading from the 
terminal. 

The number of columns. 

The number of rows. 

Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
Array storing the numbers of columns that 
assign the ranking of data 

Array storing the names of columns that 

assign the ranking of data 

The number of columns used for ranking. 

The number of column names used for ranking. 
Array storing the column mnemonic names. 






IMPLICIT INTEGER*2 (l-N) 

INTEGER *2 LEC, I MP , NCOL , NNU , KMN , FLAGl ( 6 ) , NRANK (128) 
CHARACTER*! IND 
CHARACTER*? MODCOL 

CHARACTER*24 MNE( 128 ) ,COLMNE( 128 ) , MRANK ( 128 ) 

DATA MODCOL/' columns' / 



IDUM=1 

DO WHILE ( IDUM.EQ. 1 ) 

IDUM=0 

WRITE( IMP, 100 ) 

READ ( LEC, 400 ) IND 
IF ( IND. EQ. ' 1 ' ) THEN 

IF (FLAGK6) .EQ.O) THEN 
FLAGl ( 5) =1 

CALL ANADIS(LEC, IMP , NCOL* 2 , NCOL , NRANK , NNU , 
1 MODCOL) 

CALL RANKl ( LEC , IMP , NCOL , NROW , NRANK , NNU ) 



122 



ELSE 

WRITE{ IMP , 700 ) 

RETURN 
END Ir 

ELSE I? (IND.EQ.'2') THEN 
IF (FLAGK5) .EQ.O) THEN 

IF (FLAGl(l) .EQ.l) THEN 
FLAGl ( 6 ) =1 
WRITE{ IMP, 300 ) 

CALL AS3YMN ( LEG , I MP , NCOL , COLMNE , KMN , MRANK ) 
CALL RANK2 ( LEC , IMP , NCOL , NROW , MRANK , KMN , 

1 COLMNE ) 

ELSE 

WRITE! IMP, 500 ) 

RETURN 
END IF 
ELSE 

write! imp, 800) 

END IF 
ELSE 

write! imp, 600 ) 

IDUM=1 
END IF 
END DO 

100 FORMAT! ///4X, ' By column mumber :1'/4X, 

1 'By mnemonic names :2'/ 

2 ' $ ' , 3X , ' Answe r : ' ) 

300 F0RMAT!///3X, 'Assign ranking by sequence of names :') 

400 FORMAT !A2 4) 

500 FORMAT! ///4X, ' NO MNEMONIC NAMES HAVE BEEN ASSINGED!!') 

600 F0RMAT!///4X, ' INVALID CHARACTER! ! ' ) 

700 format! ///4X, ' RANKING HAS ALREADY BE ASS IGNED ' /6X , 

1 ' BY COLUMN MNEMONIC NAMES!!') 

800 FORMAT! ///4X, ' RANKING HAS ALREADY BE ASS I GNED ' / 6X , 

1 ' BY COLUMN NUMBERS ! ! ' ) 

RETURN 

END 

SUBROUTINE AS3YMN ! LEC , IMP , NCOL , COLMNE , N , AR ) 

c 

C ARGUMENTS 

C 

c 



c 


LEC 


: The logical unit number for writing on 


the 


c 




terminal . 




c 


IMP 


: The logical unit number for reading from 


the 


c 




terminal. ' 




c 


NCOL 


: The number of columns. 




c 


COLMNE 


: Array storing the column mnemonic names. 
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C N : The number of rhe assigned mnemonics (index). 

C AR : Array storing che assigned mnemonics. 

C 

^★**********************************^*******^******^*^'*^^'*'*'^^'‘^'^ 

IMPLICIT INTEGER*2 (l-N) 

INTEGER* 2 NCOL,N 

CHARACTER* 2 4 COLMNE ( 128 ) , AR( 128 ) , NAME 
LOGICAL*! TEST 

N=0 

NAME= 'A' 

DO WHILE (NAME.NE. ’ ' ) 

IDUM=1 

DO WHILE( IDUM.EQ. 1) 

IDUM=0 

READ(LEC, 100 ) NAME 

CALL TESTER ( NCOL , NAME , COLMNE , TEST ) 

IF (N.LT. NCOL) THEN 

I F ( TEST . EQ . . TRUE . ) THEN 
N=N+1 

AR(N) =NAME 

ELSE IF { TEST. EQ. . FALSE. .AND.. N.^ME.NE. ' ') THEN 

WRITE( IMP, 200 ) 

IDUM=1 
END IF 
ELSE 

WRITE( IMP, 300 ) 

RETURN 
END IF 
END DO 
END DO 

100 FORMAT(A24) 

200 FORMAT(///4X, 'THE ASSIGNED MNEMONIC HAS NOT 3EEN'/6X, 

1 ' ASSIGNED AS COLUMN MNEMONIC !!' //4X , 

2 'Assign next mnemonic') 

300 FORMAT (///4X, 'THE ASSIGNED NUMBER OF MNEMONICS IS ' 

1 /4X, 'GREATER THAN THE NUMBER OF COLUMNS !!' /4X , 

2 'THE LAST ONE IS OMMITED') 

RETURN 

END 

SUBROUTINE ROWNAM ( LEC , IMP , FLAG 2 , NROW , ROWMNE 1 , NR , NRO , 

1 NRIN,.ROWMNE2 , IJ, A,3) 

C 

C This subroutine is used for assignment of row mnemonics 

C 

C ARGUMENTS 

C 

c 
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c 


LEC 


The logical unit 


number for vri 


ting 


on the 


c 




terminal. 








c 


IMP 


The logical unic 


number for read! 


ng f 


rom the 


c 




terminal . 








c 


FLAG 2 




The correspond 


ing flag for rows 


, 




c 


NROW 




The number of 


rows . 






c 


ROWMNEl 




Array storing 


the row mnemonic 


names 


, 


c 


NR 




The number of 


assigned row .mnemonic 


nam.es . 


c 


NRO 




The numbers 


of rows for vhi 


ch na.mes have 


c 






been assigned. 








c 


NR IN 




The invert relative addresses o 




c 


ROWMNE2 




Array storing 


the mnemonics of 


sets 


0 f rows . 


c 


IJ 




The number of 


assigned tracing 


extrema sets. 


c 


A,B 




Arrays storing 


the mumber of 


row 


on which 


c 






starts a set 


of common name 


rows 


and the 


c 






correspond ing 


on which ends the 


set . 








IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 LEC , IMP,NROW, IJ,FLAG2(4) ,A(128),3(12S), 
1 NRO( 128) ,NRIN(2048) 

CHARACTER*! IND 

CHARACTER* 2 4 ROWMNEK 20 48 ) ,RCWMNE2 ( 128 ) , NAME 
IDUM=1 

DO WHILE ( IDUM. EQ, 1) 

IDUM=0 

WRITE( IMP, 400 ) 

READ(LEC, 200) IND 
IF ( IND. EQ. ' 1 ’ ) THEN 
FLAG2(1)=1 
1 = 1 
NR=1 

DO while! I .NE. 0 ) 

WRITE! IMP, 510 ) 

READ! LEC, 100 ) I 
IF !I.EQ.0) then 
NR=NR-1 

CALL EXSH1!NR0,NRIN,NR, 1) 

RETURN 

ELSE 

NRO ! NR ) = I 
write! imp, 500 ) 
read! LEC, 200) NAME 
ROWMNEl !NR) =NAME 
END IF 
NR=NR+1 
END DO 

ELSE IF !IND.EQ.'2') THEN 
FLAG2 ! 2 ) =1 
IJ = 1 
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100 

200 

400 

500 

510 



1 = 1 

DO WHILS( I .NE. 0 ) 

IDUM=1 

DO WHILE ( IDUM.EQ, 1 ) 

IDUM=0 

WRITE( IMP, 600 ) IJ 
RSAD( LEG, 100 ) I 
IF (I.NE.O) THEN 

IF (I.LE.NROW) THEN 
A( IJ)=I 
ELSE 

WRITE ( IMP, 300 ) 

IDUM=1 
END IF 
ELSE 

IJ=IJ-1 
RETURN 
END IF 
END DO 
JDUM=1 

DO WHILE( JDUM.EQ, 1) 

JDUM=0 

WRITE ( IMP, 700 ) 

READ(LEC, 100) J 
IF (J.LE.NROW) THEN 
B( IJ)=J 

WRITE( IMP, 900 ) 

READ ( LEG, 200 ) ROWMNE2(IJ) 

IJ=IJ+1 

ELSE 

WRITE( IMP, 800 ) 

JDUM=1 
END IF 
END DO 
END DO 
IDUM=1 

ELSE IFdND.EQ.’ ’) THEN 
RETURN 
ELSE 

WRITE( IMP, 1000 ) 

IDUM=1 
END IF 
END DO 
RETURN 

FORMAT (15) 

FORMAT (A2 4 ) 

FORMAT ( ///4X, ’ Row by row :1'/4X, 

1 'By set of rows :2'/'$',3X, 

2 ' Answer : ' ) 

FORMAT ('$', 3X ,' Ass ign mnemonic :') 

FORMAT(/' 3X' Assign row number (<GR> to RETURN) ;') 
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600 FORMAT(///4X, 'ComiTion name set : ’ , : 5/ ’ S ' , 3X , 

1 ' From rov : ' ) 

700 FORMAT( ' $ ' , 3X, ' To row :') 

300 FORMAT(///3X, 'THE ASSIGNED ROW NUMBER EXEEDS THE NUMBER', 

1 ' OF ROWS ! ! ' ) 

900 FORMAT( ’ 5 ' , 3X, ’ Name :') 

1000 FORMAT (/// 5X, ' INVALID CHARACTER!!') 

END 



^ii( ic ic ic if ic ic ic ic ic if "k -k -k -k 'K iK ic -k -k -k -k -k X -k 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 



SUBROUTINE ROWSUP ( LEC , IMP , FLAG2 , NCOL , NROW , SUPl , SUP 2 , SN , 
1 ROWMNE2,A,B) 



Row suppression 
ARGUMENTS 



LEC 

IMP 

FLAG2 

NCOL 

NROW 

SUPl ,SUP2 



SN 

ROWMNE2 
A, B 



The logical unit number for writing on the 
terminal . 

The logical unit number for reading from rhe 
terminal . 

: The corresponding flag for rows. 

: The number of columns. 

: The number of rows. 

: Arrays storing the number of row on which 

starts suppression of rows and the 

corresponding on which ends the suppression. 

: The number of assigned suppressions. 

: Array storing the mnemonics of sets of rows. 

: Arrays storing the mumber of row on which 
starts a set of common name rows and the 
corresponding on which ends the set. 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk'xkkkkkkkkkkkkkkkkk 



IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 SN, FLAG2 ( 4 ) , SUPl ( 128 ) ,SUP2 (128), A (128), 3(123) 
CHARACTER*! IND 

CHARACTER* 2 4 NAME , ROWMNE2 ( 1 28 ) 

FLAG2 ( 3 ) =1 
WRITE( IMP, 50 ) 

READ(LEC,60) IND 
IF ( IND.EQ. ' 1 ' ) THEN 

CALL SUP (LEC, IMP , NCOL , NROW , SUPl , SUP2 , SN ) 

ELSE IF (IND.EQ, '2') THEN 
IF (FLAG2(2) . EQ . 1 ) THEN 
SN=1 

NAME= 'A' 

DO WHILE(NAME.NE. ' ' ) 

WRITE( IMP, 70 ) SN 
READ(LEC,80) NAME 



127 



1 = 1 

DO WH I LE ( NAME . NE . ROWD-iNE 2(1)) 
1 = 1 + 1 



END DO 

I F ( NAME . NE . ' ’ ) THEN 

SUPl (SN) =A( I ) 

SUP2(SN)=3( I) 

ELSE 

SN=SN-1 

CALL SUPSET(LEC, IMP , NCOL , NROW , SUPl , SL’?2 ,SN) 
RETURN 



END IF 
SN=SN+1 
END DO 
ELSE 



50 


WRITE( 
RETURN 
END IF 
END IF 

FORMAT (///4X 


IMP, 500 ) 

, ' By mumbe r of 


rows : 1 


’ /4X, 




1 


'By row set name :2 


'/'$' ,3X, 




2 


' Answer 


. » 


) 


60 

70 


FORMAT ( A ) 
FORMAT (///4X 


, ' Suppress ion 


: ' 15,/' $ 


' , 3X , 'Set name ; ' ) 


80 

100 


FORMAT (A2 4) 
FORMAT (///4X 


, ' Suppression 


: ' , 15/' $ 


' , 3X , ' From row : ' ) 


200 

300 


FORMAT (15) 
FORMAT (///4X 


, ' THE ASSIGNED 


NUMBER 


IS GREATER THAN THE' , 



1 /18X, ' NUMBER OF ROWS') 

400 FORMAT( ' $ ’ , 3X, ' To row :') 

500 FORMAT ( ///4X, ' SETS WITH COMMON MNEMONICS HAVE'/ 

1 lOX, ' NOT BEEN ASSIGNED!!') 

END 



SUBROUTINE SUP ( LEC , IMP , NCOL , NROW , SUPl , SUP2 , SN ) 

(^********************************************************-*r**** 

c 



C 

c 

c 

c 


ARGUMENTS 








LEC 


: The logical unit 


number fo 


r writing on 


the 


c 




terminal . 








c 


IMP 


; The logical unit 


number for 


reading from 


the 


c 




terminal . 








c 


NCOL 


: The number of 


columns . 






c 


NROW 


: The number of 


rows . 






c 


SUP1,SUP2 : Arrays storing 


the numbe 


r of row on 


which 


c 




starts suppression of 


rows and 


the 


c 




corresponding 


on which e 


nds the suppression 


c 


SN 


: The number of 


assigned suppressions. 





c 



128 



on n n n n n 






IMPLICIT INTEGER*2 (l-M) 

REAL*4 Y(128) 

INTEGER*2 SN,SUP1(128) ,SUP2(123) ,NORCW(2043) ,NC(2043) 
CHARACTER* 7 MODROW 
CHARACTER* 4 5 DEVDI R , NAME* 10 

DATA MODROW/' rows ' /DEVOIR, N.AME/' DUAO ’/ 

1 LOGOLD, LOGNEW/2 , 3/ 

C Assign files. 

WRITE( IMP, 100 ) 

NBYTSS=NCOL*4 

CALL FICH ('069' , LOGOLD , 1 , DEVDI R , N.^MIE , NRCw , .MBYTES , 1 , 

1 ' DIRECT ', LEC, IMP) 

WRITE( IMP, 200 ) 

NBYTES=NCOL*4 

CALL FICH ( '069' ,LOGNEW,l, DEVDI R, N.AME, NROW, MBYTES, 0, 

1 'DIRECT' ,LEC, IMP) 

Input chain of numbers, ',' or '-' to assign 
suppressions . 

CALL ANADIS(LEC, IMP , NROW , NROW , NO.ROW , NBROW , MODROW ) 

Sort NOROW ( ) 

CALL EXSHl (NOROW, NO, NBROW, 1) 

Phase I : Copy non-suppressed Data. 



J = 0 
K=1 

DO 1=1, NROW 

READ (LOGOLD' I) ( Y ( L ) , L= 1 , NCOL ) 
IF ( I . EQ.NOROW(K) ) THEN 
K = K+1 
ELSE 

J=J + 1 

WRITE( LOGNEW' J) (Y(L) ,L=l,NCOL) 
END IF 
END DO 



Phase II : SUPl, SUP2 and SN generation for Header. 



SUPK l)=NOROW( 1) 

SN=0 

DO 1=1, NBROW 

• IF(NOROW( I+l) .NE.NOROW( I )+l) THEN 
SN=SN+1 

SUP2(SN )=NOROW(I ) 
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SUPl ( SN-^1 ) =NORCW( ) 
END IF 
END DO 

NROW= NROW- NB ROW 
CLOSE ( LOGOLD) 

CLOSE (LOGNSW) 



RETURN 



100 

200 


FORMATf/' $ ’ , 3X, ' 
1 ' access 
format!/' $ ' , 3X, ' 
1 ' access 


' Assign 
file : ' 
' Assign 
file : ' 


no. of the ' 
V4X,44( ) 
no. of the ' 
V4X,44( ) 


' OLD' ’ 
' NEW ' ’ 


d i rect 
di rect 




END 











SUBROUTINE SUBSET ( LEG , IMP , NCOL , NROW , SUPl , SUP2 , SN ) 

(^************************i*r**********************:*r****X*:A::)k:*7k:*:ic:Ar 

C 



C 


Used to supress the rows 


that correspond to the assigned 


C 


set with 


common name. 




c 

c 


ARGUMENTS 




c 

c 


LEC : 


The logical unit 


number for writing on the 


c 




terminal . 




c 


IMP : 


The logical unit 


number for reading from che 


c 




terminal . 




c 


NCOL 


: The number of 


columns . 


c 


NROW 


: The number of 


rows . 


c 


SUPl ,SUP2 


: Arrays storing the number of row on which 


c 




starts suppression of rows and che 


c 




corresponding 


on which ends the suppression. 


c 


SN 


: The number of 


assigned suppressions. 



c 

ii: i: i( ic 'k ic 'k "k "k 'k :k ic i< ic ic ic ic i( i< ic ic ic ii: i( ic ^ i( ic ic "k "k i< i( i( ic -k -k i( :k -k 

IMPLICIT INTEGER*2 (l-N) 

REAL*4 X( 128 ) , Y( 128 ) 

INTEGER*2 SN, SUPl ( 128 ), SUP2 ( 128 ) 

CHARACTER* 4 5 DEVD I R , NAME * 1 0 

DATA DEVDIR,NAME/'DUAO '/ 

DATA LOGOLD, LOGNEW/2 , 3/ 

C Assign files. 

WRITE( IMP, 100 ) 

NBYTES=NCOL*4 

CALL FICH (' 069 ', LOGOLD, 1 , DEVDIR, NAME , NROW, NBYTES , 1 , 
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1 ' DIRECT’ , LEC, IM?) 

WRITE( IMP, 200 ) 

N3YTES=NCOL*4 

CALL FICK ('069' , LCGNEW , 1 , DEVDI R , N;^„ME , NRCW , N3YTES , 0 , 
1 ' DIRECT' , LEC, IMP) 

C Supress the row between SUP1() and SU?2(), 



J = 1 
1 = 1 
L=1 

DO WH I LE ( I . LE . NROW ) 

IF (J.LE.SN) THEN 

IF (SUPK J) .NE. I ) THEN 

READ (LOGOLD'I) ( X ( K ) , K= 1 , NCCL ) 
WR I TE ( LOGNEW ' L ) ( X ( K ) , K= 1 , NCOL ) 

L = L + 1 
1 = 1 + 1 
ELSE 

I=I+(SUP2(J)-SUP1(J)+1) 

IF (J.LE.SN) THEN 
J=J + 1 
END IF 
END IF 
ELSE 

READ (LOGOLD'I) ( X ( K ) , K= 1 , NCOL ) 

WR I TE( LOGNEW L) ( X ( X ) , K= 1 , NCOL ) 

L = L + 1 
1 = 1 + 1 
END IF 
END DO 
NROW=L-l 
CLOSE ( LOGOLD) 

CLOSE (LOGNEW) 



RETURN 

100 FORMAT(/' $', 3X, ' Assign no. of the ''OLD'' direct', 

1 ' access file : ' /4X , 44 ( ' - ' ) ) 

200 FORMAT(/’ 3X, 'Assign no. of the ’’NEW' direct’, 

1 ' access file : ' /4X , 44 ( ' - ' ) ) 

END 

SUBROUTINE WRITER ( LOGN , FLAG 1 , FLAG 2 , .NCOL , NROW , K.MN , NNU , NN , 

1 NM , I J , A , B , COLMNE , NC , .NCO , NC I N , RM I N , .RM.AX , 

2 NT , NT R , NT I N , NKE Y , MNE , NRANK , MRANK , 

3 R0WMNE1,NR,NR0,NRIN,.R0WMNE2 ,SUP1 ,SUP2, 

4 SN , NOROW, NBROW) 

C 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



This subroutine is used to write the informations 
regarding the header on a sequential file. 

ARGUMENTS 



LOGN 

FLAGl 



FLAG2 

NCOL 

NROW 

KMN 

NNU 

NN 



NM 

IJ 

A,B 



COLMNE 

NC 

NCO 

NCIN 

RMIN, RMAX 



NT 

NTR 

NTIN 

NKEY 

MNE 

NRANK 

MRANK 

ROWMNEl 

NR 

NRO 

NRIN 

ROWMNE2 

SUP1,SUP2 



on 



wni cn tne 



The 

The 

The 

The 

The 



The logical unit for the file 
header, s data will be stored. 

Integer array of six elemer. ts used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
The corresponding flag for rows, 
number of columns, 
number of rows. 

number of column names used for ranking, 
number of columns used for ranking, 
number of repeated sortings according 
column numbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of assigned tracing extrema sets. 
Arrays storing the mumber of row on which 
starts a set of common name rows and the 
corresponding on which ends the set. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names, 
The numbers of columns for which names have 
been assigned. 

The invert relative addresses of COLMNE. 
Arrays storing the minimum and maximum 
values between which tracing of the data is 
going to take place. 

The number of columns for 
extrema have been assigned. 

The column numbers for which 
have been assigned. 

The invert relative addresses of RMIN, RMAX. 
Array storing the numbers of columns which 
will be used as sorting guides. 

Array storing the names of columns which 
will be used as sorting guides 
Array storing the numbers of 
assign the ranking of data 
Array storing the names of 
assign the ranking of data. 

Array storing the row mnemonic 
The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE . 

Array storing the mnemonics of sets of rows. 
Arrays storing the number of row on which 



which 



tracing 



tracing extrema 



columns that 
colum.ns that 
names . 
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nnnnnnnn 



SN 

NOROW 



N3R0W 



starts suppression of rows and the 
corresponding on vhich ends the suppression. 
The number of assigned suppressions. 

Array the numbers of rovs used as guides for 
the ranking of the rows. 

The number of row numbers used for row 
ranking. 



^*-************************************************>t****x* + '‘rx*T 



IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 SN,FLAG1(6) , FLAG2 ( 4 ) ,A(128) ,3(128) ,NKEY(128) , 

1 NRANK(128) ,SUP1(128) ,SUP2(128) ,NCO(123) , 

2 NCIN( 128 ) ,NRO( 128 ) ,NTR{ 128 ) ,.NTIN( 128 ) , 

3 NRIN(2048 ) ,NOROW( 2048 ) 

CHARACTER* 2 4 COLMNE (128), MNE (128), MRANK (128), 

1 ROWMNEl ( 2048 ), ROWMNE2 ( 128 ) 

REAL*4 .RMIN( 128 ) ,RMAX( 128 ) 



WR I TE ( LOGN ,200) NCOL , NROW , NC , NR , I J , NT , KMN , NNU , NN , NM , 5N , 
1 N3R0W 

WRITE(LOGN, 100 ) ( FLAGl ( I ) , I = 1 , 6 ) 

IF ( FLAGl ( 1 ). EQ. 1 ) THEN 

WRITE (LOGN, 300) ( COLMNE ( I ) , I = 1 , NC ) 

WRITE(LOGN, 100) ( NCO ( I ) , I = 1 , NC ) 

WRITE(LOGN, 100) (NCIN( I ) , 1=1, NC) 

END IF 

IF (FLAGK2) .EQ.l) THEN 

WRITE(LOGN,400) (RMIN( I) , 1=1, NT) 

WRITE(LOGN, 400 ) ( RMAX ( I) , 1=1, NT) 

WRITE(LOGN, 100 ) ( NTR ( I ) , I = 1 , NT ) 

WRITE(LOGN, 100) (.NTIN( I ) , 1 = 1 , NT ) 

END IF 

WRITE( LOGN, 100 ) ( FLAG2 ( I ) , I = 1 , 4 ) 

IF (FLAG2(1) .EQ. 1) THEN 

WRITE(LOGN, 300) (ROWMNEK I) , 1=1, NR) 

WRITE(LOGN, 100 ) ( NRO ( I ) , I = 1 , NR ) 

WRITE(LOGN, 100 ) (NRIN( I ) , 1=1 , NR) 

END IF 

IF ( FLAG2 ( 2 ) . EQ. 1 ) THEN 

WRITE( LOGN, 300 ) (ROWMNE2( I) , 1=1, IJ) 

WRITE(LOGN, 100 ) ( A ( I ) , I = 1 , I J ) 

WRITE(LOGN, 100 ) ( 3 ( I ) , I = 1 , I J ) 

END IF 

IF ( FLAGl ( 3 ) . EQ. 1 ) THEN 

WRITE(LOGN, 100) (NKEY( I ) , 1=1, NN) 

END IF 

IF (FLAG1(4) .EQ. 1) THEN 

WRITE(LOGN, 300 ) ( MNE ( I ) , I = 1 , NM ) 

END IF 

IF (FLAGl (5) .EQ.l) THEN 

WRI TE ( LOGN ,100) ( NRANK ( I ) , I = 1 , NNU ) 
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END I F 





IF ( FLAGl ( 6 ) . EQ, 1 ) 


THEN 






WRITE( LOGN, 300 ) 


( MRANK ( I ) 


,1=1, KMN ) 




END IF 

IF (FLAG2( 3 ) .EQ. 1) 


THEN 






WRITE( LOGN, 100 ) 


(SUPl ( I ) , 


1=1 , SN) 




WRITE(LOGN, 100 ) 


( SUP2 ( I ) , 


1=1, SN) 




END IF 

IF (FLAG2(4) , EQ . 1 ) 


THEN 






WRITE(LOGN, 100) 


( NOROW ( I ) 


, 1=1 , NBROW 




END IF 






100 


FORMAT (15) 






200 


FORMAT ( 1215) 






300 


FORMAT (X,A24 ) 






400 


FORMAT ( F14 , 6 ) 

RETURN 

END 







i( i< i< i< i< i< if: i< i< X i< i< i< ii: ic iK -k -k i: ir ii: k iK ii: ii: if: ir if: -k ^ it: -k i< i: -k -k iK ^ -K -K 

SUBROUT I NE READER ( LOGN , FLAGl , FLAG2 , NCOL , NROW , KMN , NNU , NN , 

1 NM , I J , A , B , COLMNE , NC , NCO , NC I N , RM I N , RiMAX , 

2 NT , NTR , NT I N , NKEY , MNE , NRANK , MRANK , 

3 ROWMNE 1 , NR , NRO , NR I N , ROWMNE 2 , SUP 1 , SUP 2 , 

4 SN, NOROW, NBROW) 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



This subroutine is used to record the informations 
regarding the header on a sequential file. 

ARGUMENTS 



LOGN 

FLAGl 



FLAG2 

NCOL 

NROW 

KMN 

NNU 

NN 

NM 

IJ 
A, B 



COLMNE 

NC 



The logical unit for the file on which the 
header, s data will be stored. 

Integer array of six elements used as fl 
to indicate the existence or not of t 
several informations regarding the columns. 
The corresponding flag for rows. 

The number of columns. 

The number of rows. 

The number of column names used for ranking. 

The number of columns used for ranking. 

The number of repeated sortings according 
column numbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of assigned tracing extrema sets. 
Arrays storing the mumber of row on which 
starts a set of common name rows and the 
corresponding on which ends the set. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names, 
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Qi 



NCO 



CO i 



which names 



nave 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



NCIN 

RMIN, RMAX 



NT 



NTR 



NT IN 
NKEY 

MNE 

NRANK 



MRANK 



ROWMNEl 

NR 

NRO 

NRIN 

ROWMNE2 

SUP1,SUP2 



SN 

NO ROW 
NBROW 



of COLMNE. 

and maximum 
of che da ca is 



The numbers of columns for 
been assigned. 

The inverc relative addresses 
Arrays scoring che minimum 
values between which tracing 
going to taxe place. 

The number of columns for which tracing 
extrema have been assigned. 

The column numbers for which tracing extrema 
have been assigned. 

The invert relative addresses of RMIN,R.MAX. 
Array storing the numbers of columns which 
will be used as sorting guides. 

Array storing the names of col^umns which 
will be used as sorting guides 
Array storing the numbers of columns that 
assign the ranking of data 

Array storing the names of columns that 
assign the ranking of data. 

Array storing the row mnemonic names. 

The number of assigned row mnemonic namies. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE . 
Array storing the mnemonics of sets of rows. 
Arrays storing the number of row on which 
starts suppression of rows and the 
corresponding on which ends the suppression. 
The number of assigned suppressions. 

Array the numbers of rows used as guides for 



the ranking 
The number 
ranking. 



of the rows, 
of row numbers used 



:or 



"ow 






IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 SN,FLAG1(6) ,FLAG2(4) , A ( 1 2 8 ) , 3 ( 1 2 8 ) ,NKEY( 128) , 

1 NRANK( 128 ) , SUPl ( 128 ) , SUP2 ( 128 ) ,NCO( 128 ) , 

2 NRO(128) ,NTR(128) ,NCIN(128) ,NTIN(128) , 

3 NRIN( 2048 ), NOROW( 2048 ) 

CHARACTER* 2 4 COLMNE (128) , MNE (128) , MRANK (128) , 

1 ROWMNEl ( 2048 ), ROWMNE2 ( 128 ) 

REAL*4 RMIN( 128 ) , RMAX( 128 ) 

READ ( LOGN ,200 ) NCOL , NROW , NC , NR , IJ , NT , KMN , NNU , .NN , NT! , SN , 

1 NBROW 

READ( LOGN, 100 ) ( FLAGl ( I ) , I =1 , 6 ) 

IF (FLAGl(l) .EQ.l) THEN 

READ ( LOGN ,300) ( COLMNE ( I ) , I = 1 , NC ) 

READ ( LOGN ,100) ( NCO ( I ) , I = 1 , NC ) 

READ ( LOGN ,100) ( NC I N ( I ) , I = 1 , NC ) 
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END IF 

IF ( FLAGl ( 2 ) . EQ. 1 ) THEN 

READ ( LOGN ,400) ( RMI N ( I ) , I = 1 , NT ) 

READ ( LOGN ,400) ( RMAX ( I ) , I = 1 , NT ) 

READ( LOGN, 100 ) ( NTR ( I ) , I = 1 , NT ) 

READ( LOGN, 100) (NTIN( I ) , 1=1, NT) 

END IF 

READ( LOGN, 100) ( FLAG2 ( I ) , I = 1 , 4 ) 

IF (FLAG2(1) .EQ.l) THEN 

READ(LOGN, 300 ) (ROWMNSK I ) , 1=1 , NR) 

READ( LOGN, 100 ) ( NRO ( I ) , I = 1 , NR ) 

READ (LOGN, 100) (NRIN( I ) , I=1,NR) 

END IF 

IF (FLAG2(2) .EQ.l) THEN 

READ( LOGN, 300 ) ( ROWMNE2 ( I ) , 1=1, IJ) 

READ(LOGN, 100) ( A ( I ) , I = 1 , I J ) 

READ( LOGN, 100 ) { B ( I ) , I = 1 , I J ) 

END IF 

IF (FLAGK3) .EQ.l) THEN 

READ(LOGN, 100 ) { NKEY ( I ) , 1=1 ,NN) 

END IF 

IF (FLAGl (4) .EQ.l) THEN 

READ( LOGN, 300 ) ( MNE ( I ) , I = 1 , NM ) 

END I F 

IF (FLAGKS) .EQ. 1) THEN 

READ(LOGN, 100 ) (NRANK( I ) , I = 1 , NNU ) 

END IF 

IF (FLAGKS) .EQ.l) THEN 

READ ( LOGN ,300) ( MRANK ( I ) , I = 1 , KMN ) 

END IF 

IF (FLAG2 ( 3 ) .EQ. 1 ) THEN 

READ( LOGN, 100) (SUPl(I) , 1=1, SN) 

READ( LOGN, 100) ( SUP2 ( I ) , I = 1 , SN ) 

END IF 

IF (FLAG2(4) .EQ. 1) THEN 

READ( LOGN, 100) (NOROW( I ) , 1=1 ,NBROW) 

END IF 

100 FORMATdS) 

200 FORMAT (1215) 

300 FORMAT(X, A24 ) 

400 FORMAT(F14 . 6) 

RETURN 

END 

Q*******************************************:^7^******^**:V***:*r't* 

SUBROUTINE CDISP (LEG, IMP , FLAGl , NCOL , COLMNE , NC , NCO , NO I N , 

1 RM I N , RMAX , NT , NTR , NT I N , NKEY , MNE , NN , NT-l , 

2 _ NRANK , MRANK , NNU , KMN ) 

C This subroutine is used to display on the screen the 

C column informations of the header'. 

C 
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C ARGUMENTS : 

C 

C 

C LEG : 

C 

C IMP : 

C 

C FLAGl : 

C 

C 

C NCOL ; 

C COLMNE : 

C NC : 

C NCO 

C 

C NC I N : 

C RMIN,RMAX : 

C 
C 

C NT : 

C 

C NTR : 

C 

C NT IN : 

C NKSY : 

C 

C MNE : 

C 

C NN : 

C 

C NM : 

C 

C NRANK 

C 

C MRANK 

C 

C NNU : 

C KMN : 

Q**************** 



The iogicalunic number for writing on nhe 
terminal . 

The logical unit number for reading from z'r.e 
terminal . 

Integer array of six elements used as fl 
to indicate the existence or not of t 
several informations regarding the columns 
The number of columns. 

Array storing the column m.nemonic na.mes. 

The number of assigned column mnemonic nam. 
The numbers of columns for which names ha 
been assigned. 

The invert relative addresses of COLMNE. 
Arrays storing the minimum and .maxim 
values between which tracing of the data 
going to take place. 

The number of columns for which traci 
extrema have been assigned. 

The column numbers for which tracing extre 
have been assigned. 

The invert relative addresses of RMIN,RMAX 
Array storing the numbers of columns whi 
will be used as sorting guides. 

Array storing the names of columns whi 
will be used as sorting guides. 

The number of repeated sortings accordi 
column numbers. 

The number of repeated sortings accordi 
column mnemonic names. 

Array storing the numbers of columns th 
assign the ranking of data 

Array storing the names of columns th 
assign the ranking of data. 

The number of columns used for ranking. 

The number of column names used for ranxin 



IMPLICIT INTEGER*2 (I-N) 

INTEGER *2 LEG, I MP , LOGN , .NCOL , NROW , NN , NM , NNU , KMN , IJ, 

1 NTR(128) ,FLAG2(4) ,NKEY(128) ,NRANK(123) ,A(i23) , 

2 B( 128 ) ,NCO( 128 ) ,NCIN( 128 ) , NTIN( 128 ) , FLAGl ( 6 ) 
REAL*4 RMIN( 128 ) , .RMAX( 128 ) 

CHARACTER*! IND 

CHARACTER* 24 FNAME , COLMNE ( 128) , MNE (128) , MRANK ( 128) 

WRITE( IMP, 100 ) 

WRITE ( IMP, 200) NCOL 
IF ( FLAGl ( 1 ). EQ. 1 ) THEN 
WRITE( IMP, 300 ) 
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(1) pi D n o - ;:i < ‘X) • rr oi 

lO lO 'JT ly P' lO t/1 *:1 (D lA (D lO 



100 

200 

300 

400 

500 



DO I=1,NC 

WRI TE ( : xM? , 4 0 0 ) MCO ( I ) , COLxMNS ( N’C I N ( I ) ) 

END DO 
END IF 

IF (FLAGK2) .EQ. 1) THEN 
WRITE( IMP, 500 ) 

DO 1=1, NT 

WRITE! IMP, 600 ) NTR( I ) ,RMIN(NTIN( I ) ) , xRMAX ( NT I N I I ) ) 
END DO 
END IF 

IF (FLAGK3) .EQ.l) THEN 
write! IMP, 700 ) 

DO I=1,NN 

write! IMP, 800 ) nkey!i) 

END DO 
END IF 

IF !FLAG1 !4) ,EQ. 1) THEN 

write! imp, 900 ) 

DO I=1,NM 

write! IMP, 1000) mne!i) 

END DO 
END IF 

IF !FLAG1!5) .EQ. 1) THEN 

write! imp, 1100) 

DO I=1,NNU 

write! IMP, 1200) nrank!i) 

END DO 
END IF 

IF !FLAG1!6) .EQ.l) THEN 
write! imp, 1300) 

DO I=1,KMN 

write! IMP, 1400 ) mrank!i) 

END DO 
END IF 

read! LEG, 1500 ) IND 
IF ! IND.EQ. ' ' ) THEN 

write! imp, 1600 ) 

RETURN 
END IF 

FORMAT! 20 !/), 18X, ' C OLUMN IN FORMATION S’ 

2^ y 18X ^'k'k-k-k-k-k'k'k'k'k'k'k-k'k-k-k-k'k'ki<-k'k'k'k'kk'k-k'k-k'k'k'k'k'*:'k-k''^ 

FORMAT !//27X, 'NUMBER OF COLUMNS ’ /2 7X , 

1 . ’//31X,I5) 

F0RMAT!//27X, 'COLUMN MNEMON I CS ' /2 7X , 

1 • '/23X, 

2 'Column number ', 3X ,’ Mnemon ic ' /2 3X , 

3 . . ) 

format! 2 7X, 13 , lix, A24) 

FORMAT !//28X, 'TRACING EXTREMA ’ / 2 8 X , 

1 • ' '/13X, 

2 'Column number ', 6X ,' Mi n imum ', 9X ,' Max imum ',/ 1 3X , 
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SORT ' / 
. ) 



600 FORMATdoX, Z 3 , 6X , ? 1 4 . 6 , 3X , ? 1 4 . 5 ) 

700 format! //I 8 X, ' COLUMN NUMBER GUIDES FOR MULTIPLE 

2 18X,' 

300 FORMAT! 3 3X, 13) 

900 FORMAT ! //17X, ' COLUMN NAME GUIDES FOR MULTIPLE SORT'/17X, 

1 ' ) 

1000 format! 4 IX, A2 4 ) 

1100 FORMAT !/22X, 'COLUMN NUMBERS FOR RANKING ' /2 2X , 

1 . ) 

1200 format! 33X, I 3 ) 

1300 F0RMAT!/2 3X, 'COLUMN N.i^lES FOR R-\NKING ’ /2 3X , 

1 • ) 

1400 FORMAT! 34X, A24) 

1500 FORMAT! A) 

1600 format! 20!/) ) 

END 






SUBROUT I NE RD I SP ! LEC , IMP , FLAG2 , NROW , ROWMNE 1 , NR , NRO , NR I N , 
1 ROWMNE2, IJ,A,B,SUP1,SUP2,SN,N0R0W,NBR0W) 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 






ARGUMENTS 



LEC 



IMP 



LOGN 

FLAGl 



FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 

ROWMNEl 

NR 

NRO 

NRIN 
ROWMNE2 
RMIN, RMAX 



NT 



The logical unit number for writing on the 
terminal. 

The logical unit number for reading from the 
terminal . 

The logical unit for the file on which the 
header, s data will be stored. 

Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
The corresponding flag for rows. 

The number of colu.mns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names. 
The numbers of columns for which names have 
been assigned. 

The invert relative addresses of COLMNE. 

Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 

The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE . 

Array storing the mnem.onics of sets o.f rows. 
Arrays storing the minimum and maximum 
values between which tracing of the data is 
going to take place. 

The number of columns for which tracing 
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NTR 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



NT IN 
xNKEY 



MNE 



NN 



NM 

IJ 
A, B 



NRANK 

MRANK 

NNU 

KiMN 

SUP1,SUP2 



SN 

NOROW 

NBROW 



extrema have been assigned. 

The column numbers for which tracing extre.ma 
have been assigned. 

The invert relative addresses of RMIN,.R.MAX. 
Array storing the numbers of columns which 
will be used as sorting guides. 

Array storing the names of columns which 
will be used as sorting guides. 

The number of repeated sortings according 
column numbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of assigned tracing extre.ma sets. 
Arrays storing the mumber of row on which 
starts a set of common name rows and the 
corresponding on which ends the set. 

Array storing the numbers of colum.ns that 
assign the ranking of data 

Array storing the nam.es of columns that 

assign the ranking of data 

The number of columns used for ranking. 

The number of column names used for ranking. 
Arrays storing the number of row on which 
starts suppression of rows and the 
corresponding on which ends the suppression. 
The number of assigned suppressions. 

Array the numbers of rows used as guides for 
the ranking of the rows. 

The number of row numbers used for row 
rank i ng 






IMPLICIT INTEGER*2 (l-N) 

INTEGER* 2 LEG, IMP , LOGN , NCOL , NROW , NN , NM , NNU , KMN , IJ,SN, 

1 FLAGK6) ,FLAG2(4) ,NKEY(128) , NRANK (128) ,A(123) , 

2 B( 128 ) , NOROW (20 48 ) , SUPl ( 128 ) , SUP2 ( 128 ) , 

3 NRO( 128 ) ,NRIN( 2048 ) 

REAL*4 RMIN( 128 ) , RMAX( 128 ) 

CHARACTER*! I ND 

CHARACTER*24 FNAME , COLMNE ( 128 ) , MNE ( 128 ) ,MRANK( 123 ) , 

1 ROWMNEl ( 2043 ) , ROWMNE2 ( 1 2 8 ) , NAME 

WRITE( IMP, 100) 

WRITE( IMP, 200) NROW 
IF (FLAG2 ( 1 ) .EQ, 1 ) THEN 
WRITE( IMP, 300 ) 

DO 1=1, NR 

WRITE ( IMP, 400 ) NRO( I ) , ROWMNEl ( NR I N ( I ) ) 

END DO 
END IF 

IF (FLAG2(2) .EQ. 1) THEN 
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100 

200 

300 

400 

500 



WRITE( IMP, 500) 

DO 1 = 1, IJ 

WR I TS ( I M? , 6 0 0 ) I , ROW-INE 2(1) 

DO J=A( I ) , 3{ I ) 

NAME=' ' 

K=1 

DO WH I LE { K , LE . NR . AND . NA,ME . EQ , ' ' ) 

IF { J . EQ . NRO ( K ) ) THEN 
NAME=ROWMNEl (K) 

END IF 
K=K+1 
END DO 

WRITE( IMP, 610 ) J,NAME 
END DO 

IF (I.LT.IJ) THEN 
WRITE( IMP, 620 ) 

END IF 
END DO 
END IF 

IF (FLAG2{ 3) .EQ, 1) THEN 
WRITE( IMP, 700 ) 

DO 1=1, SN 

IF (SUPK I ) .NE. 0 . AND, SUP2 ( I ) .NE. 0 ) THEN 
WRITE( IMP, 800 ) I ,SU?1( I ) , SUP2 ( I ) 

END IF 
END DO 
END IF 

IF (FLAG2{4) .EQ. 1) THEN 
WRITE( IMP, 1100 ) 

DO I=l,NBROW 

WRITE( IMP, 1200 ) NOROW(I) 

END DO 
END IF 

READ(LEC, 900 ) IND 
IF ( IND.EQ. ' ' ) THEN 

WRITE( IMP, 1000) 

RETURN 
END IF 

FORMAT(20{/) ,20X, 'R OW IN FORMATION S’ 
jl^ /20X ’****^****^***************^**'*^’*^*') 

FORMAT ( //29X, ' NUMBER OF ROWS' /29X, 

1 . V/32X,I5) 

FORMAT(//30X, ' ROW MNEMONICS ' /30X , 

1 ' '//23X, 

2 'Row numbe r ' , 6X , ' Mnemon i cs ' /2 3X , 

3 . ■ ) 

FORMAT { 2 5X, 15, IIX, A24 ) 

FORMAT(//20X, ' SETS OF ROWS WITH COMMON .MNEMONICS ' /20X , 

1 . ’//20X, 

2 ' Set ' , 7X, ’ Set ' , 7X, ' Row’ , 7X, ’ Row ’ , 7X/19X, ’ Number ’ , 

3 3X, 'mnemonic ' 3X, ’ number ’ , 3X, ’mnemonic ' /19X, 

4 • ) 
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600 

610 

620 

700 



800 

900 

1000 

1100 

1200 



FORMAT (17X, I5,7X,A24) 

FORMAT ( 36X, 15 , 7X, A24 ) 

FORMAT ( 19X, ' ' ) 

FORMAT (//30X, ' SUPPRESS I ONS ' / 3 OX , ’ V/20X, 



1 ' Suppress ion ’ , 

2 3X,'From row',3X,’To row'/20X, 

3 ' ■ ) 



FORMAT (19X, I 5 , 3X , I 5 , 5X , I 5 ) 

FORMAT ( A ) 

FORMAT ( 20 (/) ) 

FORMAT (//3 OX, 'ROW RANK I NG ' /3 OX , ' ' ) 

FORMAT ( 3 2X, 15) 

END 



SUBROUTINE COLMOD ( LEG , IMP , FLAGl , NCOL , NROW , COLMNE , NC , NCO , 

1 NC I N , RM I N , RMAX , NT , NT R , NT I N , NKEY , MNE , NN , 

2 NM , NRANK , MRANK , NNU , KMN ) 

(3***********************************************************-tr* 

C ARGUMENTS 

C 

c 



c 


LEG 




The logical unit number for writing on the 


c 






terminal. 


c 


IMP 




The logical unit number for reading from the 


c 






terminal. 


c 


LOGN 




The logical unit for the file on which the 


c 






header, s data will be stored. 


c 


FLAGl 




Integer array of six elements used as flag 


c 






to indicate the existence or not of the 


c 






several informations regarding the columns. 


c 


NCOL 




The number of columns. 


c 


NROW 




The number of rows. 


c 


COLMNE 




Array storing the column mnemonic names. 


c 


NC 




The number of assigned column mnemonic names 


c 


NCO 




The numbers of columns for which names have 


c 






been assigned. 


c 


NCIN 




The invert relative addresses of COLMNE. 


c 


ROWMNEl 




Array storing the row mnemonic names. 


c 


NR 




The number of assigned row mnemonic names. 


c 


NRO 




The numbers of rows for which names have 


c 






been assigned. 


c 


NRIN 




The invert relative addresses of ROWMNE . 


c 


ROWMNE2 




Array storing the mnemonics of sets of rows. 


c 


RMIN,RMAX 




Arrays storing the minimum and maximum 


c 






values between which tracing of the data is 


c 






going to take place. 


c 


NT 


: 


The number of columns for which tracing 


c 






extrema have been assigned. 


c 


NTR 


i 


The column numbers for which tracing extrema 


c 






have been assigned. 


c 


NT IN 


: 


The invert relative addresses of RMIN,RMAX. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C- 

c 

c** 



NKEY 

MNE 

NN 

NM 

IJ 
A, 3 

NRANK 

MRANK 

NNU 

KMN 

SUPl , SUP2 
SN 



Array scoring th 
will be used as 
Array storing t 
will be used as 
The number of r 
column numbers. 
The number of r 
column mnemonic 
The number of as 
Arrays storing 
starts a set o 
corresponding on 
Array storing 
assign the ranki 
Array storing 
assign the ranki 
The number of co 
The number of co 
Arrays storing t 
starts suppres 
corresponding o 
The number of as 



e numbers of columns which 

sorting guides. 

he names of coLum.ns which 

sorting guides. 

epeated sorcings according 

epeated sortings according 
names . 

signed tracing extrema sets, 
the muraber of row on which 
f common name rows and the 
which ends the set. 
the numbers of co lumens that 
ng of data 

the names of columns that 
ng of data 

lumns used for ranking, 
lumn names used for ranking, 
he number of row on which 
sion of rows and the 
n which ends the suppression, 
signed suppressions. 






IMPLICIT INTSGSR*2 (I-N) 

INTEGER’' 2 LEG, IMP , LOGN , NCOL , NROW , NN , .NM , NNU , KMN , IJ, 

1 FLAGK6) ,NTR(128) ,?LAG2(4) ,NK£Y(128) , 

2 NR.\NK(128) ,A(128) ,3(128) ,NCO(128) ,NCIN(123) , 

3 NT I N ( 1 2 8 ) 

REAL* 4 RMIN( 128 ) , RMAX ( 1 28 ) , RMI ND ( 1 2 8 ) ,.RMAXD( 123 ) 
CHARACTER*! IND 
CHARACTER*? MODCOL 

CHARACTER* 2 4 FNAME , COLMNE (12 8), .MNE (123), MR.\NK (123) , NA.ME , 
1 ROWMNSl ( 2043 ) , ROWMNE2 ( 1 28 ) ,COLMNSD( 123) , 

DATA MODCOL/ 'columns'/ 



IDUM=1 

DO WHILE ( IDUM.EQ. 1) 

IDUM=0 

WRITE( IMP, 100 ) 

READ ( LEC, 200 ) IND 
IF ( IND. EQ. ' 1 ' ) THEN 

C Column number modification 

WRITE( IMP, 300 ) NCOL 
READ( LEC, 310 ) NCOL 
IDUM=1 

ELSE IF ( INd!eQ. ' 2 ■' ) THEN 
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C Column mnemonic names modification 



IF (FLAGK 1) .SQ. 1) THEN 
1 = 1 

DO WHILS( I .NS . 0 ) 

WRITE( IMP, 500 ) 

RSAD(LEC,400) I 
IF (I.NE.O)THSN 
J=1 

DO WHILE(NCO(J) . NE . I . AND . J . LE . NC ) 

J=J + 1 
END DO 

IF (J-1 .EQ.NC. AND.NCO( J) .NS. I ) THEN 
DO K=1,NC 

COLMNED ( K ) =COLMNE ( NC I N ( K ) ). 

END DO 
DO K=1,NC 

COLMNE ( K ) =COLMNED ( K ) 

END DO 
NC=NC+1 
NCO(NC) =I 

WRITE ( IMP, 600 ) COLMNE (NC) 

READ (LEC, 700) COLMNE (NC) 

CALL EXSHl(NCO,NCIN,NC, 1) 

ELSE 

WRITE( IMP, 600) COLMNE(NCIN( J) ) 

READ( LEC, 700 ) COLMNE ('nC I N ( J ) ) 

END IF 
END IF 
END DO 
IDUM=1 
ELSE 

WRITE( IMP, 800 ) 

CALL COLNAM ( LEC , IMP , FLAGl , .NCOL , COLMNE , NC , NCO , 
1 NC I N ) 

END IF 

ELSE IF (IND.EQ.'3') THEN 

C Tracing extrema modification 

IF (FLAGK2) .EQ.l) THEN 
1 = 1 

DO WHILE (I.NE.O) 

WRITE( IMP, 500 ) 

READ (LEC, 400) I 
IF (I.NE.O) THEN 
J = 1 

DO WH I LE ( NTR ( J ) . NE . I . AND . J . LE . NT ) 

J=J + 1 
END DO 

IF (J-1 .EQ.xNT.AND.NTR(j) .NE. I ) THEN 
DO K=1,NT 
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RMIND(K) =R-MIN(NT:n(K) ) 

P.MAXD ( K ) = R.MAX ( NT I N i K ) ) 

END DO 
DO K=1,NT 

RiMIN(K) =RMIND(K) 

RMAX(X) = R-MAXD(K) 

END DO 
NT=NT+1 
NTR(NT) =I 

WRITE( IMP,900) RMIN(NT) 

READ ( DEC, 1700 ) RMIN(NT) 

WRITE ( IMP, 1300 ) PNIAX(NT) 

READ ( DEC, 1700 ) RMAX ( NT ) 

CALL SXSK1(NTR,NTIN,NT, 1 ) 

ELSE 

WRITE( IMP, 900 ) RMIN(NTIN( J) ) 

READ( DEC, 1700 ) RMI N ( NT I N ( J ) ) 

WRITE( IMP, 1800 ) RMAX(NTIN( J) ) 

READ( DEC, 1700 ) RMAX ( NT I N ( J ) ) 

END IF 
END IF 
END DO 
IDUM=1 
ELSE 

WRITE( IMP, 1000 ) 

CALL EXTREM ( LEC , IMP , FLAGl , NCOL , NROW , RMI N , RMAX , 

1 NT,NTR) 

END IF 

ELSE IF (IND.EQ.’4') THEN 
C Sorting guides modification 

IF (FLAGK 3) .EQ. 1) THEN 

C Sorting guides by column number modification 

WRITE{ IMP, 1100) 

WRITE(LEC, 400 ) ( NKEY ( I ) , I = 1 , NN ) 

CALL ANADI S ( LEC , IMP , NCOL , NCOL , NXEY , NN , MODCOL ) 
CALL REARKLEC, IMP , NCOL , NROW , NKEY , NN ) 

ELSE IF ( FLAGl ( 4 ) . EQ. 1 ) THEN 
WRITE{ IMP, 1100 ) 

DO I=1,NM 

WRITE{ LEC, 1300 ) MNE(I) 

END DO 

WRITE( IMP, 1400 ) 

CALL ASBYMN( LEC, IMP , NCOL , COLMNE , NM , MNE ) 

CALL REAR2 ( LEC , IMP , NCOL , NROW , COLMNE , MNE , NM ) 

ELSE 

WRITE( IMP, 1500 ) 

CALL MULSOR(LEC, IMP , NCOL , FLAG 1 , NRANK , MRANK , NNU , 
1 KMN , COLMNE ) 
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END IF 
IDUM=1 

ELSE IF (IND.SQ.'S') THEN 

C Ranking modification 

IF (FLAGK5) .EQ.l) THEN 
WRITE( IMP, 1900 ) 

WRITE(LEC,400) ( NRANK ( I ) , I = 1 , NNU ) 

CALL ANADIS ( LEC, IMP , NCOL , NCOL , NRANK , NNU , MODCOL ) 
CALL RANK 1 ( LEC , I MP , NCOL , NROW , NRANK , NNU ) 

ELSE IF (FLAGKG) .EQ.l) THEN 
WRITE( IMP, 1900 ) 

DO I=1,KMN 

WRITE ( IMP, 1300) MRANK(I) 

END DO 

WRITE( IMP, 2000 ) 

CALL AS3YMN(LEC, IMP , NCOL , COLMNE , KMN , MRANK ) 

CALL RANK2 ( LEC , IMP , NCOL , NROW , MRANK , KMN , COLMNE ) 
ELSE 

WRITE{ IMP, 2200 ) 

CALL CRANK ( LEC , IMP , NCOL , NROW, FLAGl , NRANK , MRANK , 
1 NNU , KMN , COLMNE ) 

END IF 

ELSE IF (IND.EQ.' ') THEN 
RETURN 
END IF 
END DO 
RETURN 



100 


FORMAT (///8X, ' 


MODIFICATION SELECTION 


TABLE ' /8X, 




1 




V9X, 




2 


'Number of columns 


l'/9X, 




3 


'Mnemonic names 


2' /9X, 




4 


'Tracing extrema 


3 ' /9X, 




5 


'Sorting guides 


4-/9X, 




6 


'Rank of columns 


5'//'$' ,3X, 




7 


' Answer : ' ) 




200 


FORMAT (A) 






300 


FORMAT (///, 4X, 


'Old number of columns 


,13,/'$' ,3X, 




1 


'Assign new number 


: ' ) 



310 F0RMAT(I3) 

400 FORMAT(/4X,100(20( 13, ',')/) ) 

500 FORMAT 3X ,' Ass ign column number : ' ) 

600 FORMAT(///4X, 'Old name : ' , A2 4/ ' $ ' , 3X , 

1 'Assign new name :') 

700 FORMAT(A24) 

800 FORMAT (///4X, 'MNEMONIC NAMES HAVE NOT BEEN ASSIGNED!!') 

900 FORMAT(///4X, 'Old MIN : ' , F14 . 6/ ' $ ' , 3X , 

1 'Assign new MIN :') 

1000 FORMAT(///4X, 'TRACING EXTREMA HAVE NOT BEEN ASSIGNED!!') 
1100 FORMAT ( ///4X ,' Old sorting guides ;') 

1200 FORMAT ( ///4X ,' Ass ign column numbers :') 
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1300 FORMAT! /2X,A24 ) 

1400 FORMAT ( ///4X Ass ign i-nneniopi i c na.T^es :') 

1500 FORMAT ( ///4X, ' SORTING GUIDES DO NOT EXIST!!') 

1600 FORMAT (///4X, 'THE ASSIGNED MNEMONI CHAS NOT 3EEN'/6X, 

1 ' ASSIGNED AS COLUMN MNEMON I C ! ! ' //4X , 

2 'Assign next mnemonic') 

1700 FORMAT! F14 . 6 ) 

1800 FORMAT !///4X, 'Old MAX : ' , F14 . 6/ ' S ' , 3X , 

1 'Assign new MAX :') 

1900 FORMAT (7//4X, 'Old ranking :') 

2000 FORMAT ( ///4X ,' Ass ign new ranking guides :') 

2200 FORMAT ( ///4X, ' RANKING HAS NOT BEEN ASSIGNED!!') 

END 



C* 



C* 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 



SUBROUTINE ROWMOD(LEC, IMP , FLAG2 , NCOL , NROW , ROX>lNE 1 , NR , 

1 NRO,NRIN,ROWMNE2, I J , A , 3 , SUP 1 , SUP 2 , SN , 

2 NOROW, N3R0W) 



ARGUMENTS 



LEG 

IMP 

FLAG2 

NCOL 

NROW 

ROWMNEl 

NR 

NRO 



NR IN 
ROWMNE2 
IJ 
A,B 



SUPl , SUP2 



SN 

NOROW 

NBROW 



The logical unit number for writing on the 
terminal . 

The logical unit number for reading from che 
terminal. 

The corresponding flag for rows. 

The number of columns. 

The number of rows. 

Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE . 
Array storing the mnemonics of sets of rows. 
The number of assigned tracing extre.ma sets. 
Arrays storing the mumber of row on which 
starts a set of common name rows and the 
corresponding on which ends the set. 

Arrays storing the number of row on which 
starts suppression of rows and the 
corresponding on which ends the suppression. 
The number of assigned suppressions. 

Array the numbers of rows used as guides for 
the ranking of the rows. 

The number of row numbers used for row 
ranking 






IMPLICIT INTEGER*2 (I-N) 
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INTEGER* 2 FLAG2(4) , A (123), 3(123) ,SUP1(123) ,SU?2(128) , 

1 NRO ( 1 2 8 ) , NR I N ( 2 0 4 8 ) , SN , NCRCW ( 2043 ) 

CHARACTER*! IND 
CHARACTER*? MODROW 

CHARACTER* 2 4 ROWMNS 1 ( 2043 ), ROWMNE 2(128) , ROWI^NE 1 D ( 1 2 8 ) 
DATA MODROW/ ’ rows ' / 

I DUM= 1 

DO WHILE ( IDUM. EQ, 1 ) 

IDUM=0 

WRITE( IMP, 100 ) 

READ(LEC,200) IND 
IF ( IND.EQ. ' 1 ' ) THEN 
WRITE( IMP, 300 ) NROW 
READ( LEC, 400 ) NROW 
IDUM=1 

ELSE IF (IND.EQ. '2') THEN 
IF (FLAG2(1) .EQ.l) THEN 
1 = 1 

DO WHILE ( I . NE . 0 ) 

WRITE( IMP, 500 ) 

READ( LEC, 400 ) I 
IF ( I . NE . 0 ) THEN 
J=1 

DO WH I LE ( NRO ( J ) . NE . I . AND . J . LE . NR ) 

J=J + 1 
END DO 

IF (J-l.EQ.NR.AND.NRO(J) .NE, I ) THEN 
DO K=1,NR 

ROWMNEID(K) =ROW'MNEl(NRIN(K) ) 

END DO 
DO K=1,NR 

ROWMNEl (K) =ROWMNElD(K) 

END DO 
NR=NR+1 
NRO ( NR ) = I 

WRITE ( IMP, 600 ) ROWMNEl (NR) 

READ( LEC, 700 ) ROWMNEl (NR) 

CALL EXSHl(NRO,NRIN,NR, 1) 

ELSE 

WRITE ( IMP, 600 ) ROW>lNEl (NRIN( J ) ) 

READ( LEC, 700 ) ROWMNE 1 ( NR I N ( J ) ) 

END IF 
END IF 
END DO 
I DUM= 1 
ELSE 

WRITE( IMP, 800 ) 

CALL ROWNAM( LEC, IMP , FLAG2 , NROW , ROWMNS 1 , NR , NRO , 
1 NRIN,ROWMNE2 , IJ,A,B) 

END IF 

ELSE IF (IND.EQ, '3') THEN 



IF (FLAG2( 2) .EQ. 1) THEN 
WRITE( IMP, SOO ) 

READ ( LEG, 200 ) I ND 
IF ( IND.EQ. ' 1' ) THEN 
1 = 1 

DO WH I LE ( I , NS . 0 ) 

WRITE ( IMP, 1000) 

READ{ LEG, 400 ) I 
IF ( I . NE . 0 ) THEN 

WRITS( IMP, 1100 ) I,A(I),3(I) 

READ{ LEG, 400 ) A(I) 

WRITS( IMP, 1200) 

READ( LEG, 400 ) 3(1) 

END IF 
END DO 

ELSE IF (IND.EQ. '2') THEN 
1 = 1 

DO WH I LE ( I . NE . 0 ) 

WRITE( IMP, 1100 ) 

RE AD ( LEG, 400 ) I 
IF ( I . NE . 0 ) THEN 

WRITE( IMP, 1400 ) ROWMNE2(I) 

READ ( LEG, 700 ) ROWMNE2(I) 

END IF 
END DO 
IDUM=1 
ELSE 

WRITE( IMP, 1500 ) 

IDUM=1 
END IF 
ELSE 

WRITE( IMP, 800 ) 

GALL ROWNAM( LEG, IMP, FLAG2 , NROW , ROWMNE 1 , ROWMNE2 , 
1 IJ,A,3) 

END IF 

ELSE IF (IND.EQ. '4') THEN 
IF (FLAG2( 3) .EQ. 1) THEN 
1 = 1 

DO WHILE ( I . NE . 0 ) 

WRITE( IMP, 1600 ) 

READ ( LEG, 400 ) I 
IF (I.NE.O) THEN 

IF (SUPK I) .EQ.0.AND.SUP2( I) .EQ.O) THEN 
SN=SN+1 

WRITE( IMP, 1700 ) SUPK I ) ,SUP2( I ) 

READ( LEG, 400 ) SUPl(I) 

WRITE( IMP, 1800 ) 

READ( LEG, 400 ) SUP2 ( I ) 

ELSE IF (SUPl ( I ) .NE.O . AND. SUP2 ( I ) .NE. 0 ) 

1 THEN 

WRITE( IMP, 1700) I ,SUP1( I) ,SUP2( I) , I 
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100 

200 

300 

400 

500 



READ( LEC, 400 ) SUPKl) 

WRITE! IMP, 1300 ) 
read! LEC, 400 ) SUP2!l) 

IF (SUPl! I ) .EQ.O . AxMD.SUP2 ! I ) . EQ . 0 ) 

1 THEN 

NROW=NROW+1 
END IF 
END IF 
END IF 
END DO 

CALL SUPSET!LEC, IMP , NCOL , NROW , SUP 1 , SUP2 , SN ) 
IDUM=1 
ELSE 

write! imp, 1900 ) 

CALL ROWSUP! LEC, IMP , FLAG2 , NROW , SUPl , SUP2 , SN) 
END IF 

ELSE IF !IND.EQ.’5') THEN 
IF !FLAG2(4) .EQ. 1) THEN 

write! imp, 2000 ) 

write! LEC, 2100 ) !N0R0W! I) , I=l,NBROW) 

CALL ANADIS!LEC, IMP , NROW , NROW , NO ROW , N3 ROW , 

1 MODROW) 

CALL RE0RD!LEC, IMP , NCOL , NROW , FLAG2 , NOROW , 

1 NBROW) 

IDUM=1 

ELSE 

write! imp, 2200 ) 

CALL ANADIS ! LEC, IMP , NROW , NROW , NOROW , NBROW , 

1 MODROW) 

CALL RE0RD!LEC, LMP , NCOL , NROW , FL.AG2 , NOROW , 

1 NBROW) 

END IF 

ELSE IF ! IND.EQ. ' ' ) THEN 

RETURN 
ELSE 

WRITE! IMP, 1500) 

IDUM=1 
END IF 
END DO 

FORMAT!10!/) ,4X, 'MODIFICATION SELECTION TABLE’/4X, 



1 < ./4X, 

2 'Number of rows :1'/4X, 

3 'Mnemonics by row :2'/4X, 

4 'Mnemonics by series of rows :3'/4X, 

5 'Suppression :4'/4X, 

6 'Rank of rows :5' 

7 / ' $ ' , 3X , ' Answer : ' ) 

FORMAT! A) 

FORMAT ! ///4X ,' Old number of rows : ' , I 5/ ' $ ' , 3X , 

1 'Assign new number :') 

format! 15) 

FORMAT !///'$', 3X ,' Ass ign column number :') 
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600 


FORMAT ( ///4X, 


' Old nam.e : ' , .A2 •; 


i/ ' S ' , 3X, 








1 'As si 


gn new name : ' ) 








700 


FOR.MAT( A2 4 ) 










800 


FORMAT (///3X, 


'MNE.MONIC NAMES DO NOT 


EXIST! ! ' ) 




900 


FORMAT {///4X, 


'Seri 9 modification :] 


L ' /4X, 








1 


'Name modification ;2'/'S',3X, 








2 


' Answe r : ' 


) 






1000 


FORMAT {///’ S ' 


,3X, 'Assign serie number :') 






1100 


FORMAT ( ///4X, 


'Old serie 


' , I5/4X, 








1 


' From row 


' , I5/4X, 








2 


' To row 


' ,I5//4X, 








3 


'Assign new serie 


,3X, 








4 


' F rom row 


' ) 






1200 


FORMAT ( ' $ ' , 3X 


, ' To row 


' ) 






1400 


FORMAT (///4X, 


'Old mnemonic 


' ,X,A24/' 


' $ ' 


, 3X, 




1 


'.Assign new mnemonic 


' ) 






1500 


FORMAT (///5X, 


' INVALID CHARACTER! ! ’ ) 








1600 


FOFb4AT(///' $ ' 


,3X, 'Assign suppression number 


' ) 




1700 


FORMAT ( ///4X, 


'Old suppression 




» 

r 


15, /4X 




1 


'From row 




f 

f 


15, /4X 




2 


' To row 




» 

t 


I5//4X 




3 


'Assign new suppression 


r 

/ 


I 5 , / ' S 




4 


3X , ' From row 




' ) 




1800 


FORMAT ( ' $ ' , 3X 


, 'To row 




' ) 




1900 


FORMAT (///4X, 


'NO SUPPRESSION HAS BEEN ASSINGED! 


! ' ) 


2000 


FORMAT ( ///4X, 


'Old ranking : ' ) 








2100 


FORMAT (/4X, 100(20(13,',')/)) 








2200 


FORMAT ( ///4X, 


'RANKING HAS .NOT BEEN ASSIGNED!! 


! ' ) 






RETURN 

END 
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SUBROUTINE TESTER ( NCOL , NAME , COLMNE , TEST ) 

Q^k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

C 

C This subroutine is used to test if a mnemonic name has 

C been assigned as column mnemonic name 

C 

C ARGUMENTS 

C 

c 

C NCOL 

C NAME 

C COLMNE 

C 

C TEST 

C 

c 

Q^k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 



: The number of columns 
: The mnemonic to be tested. 

: Array storing the column mnemonic names 
data will be stored. 

: Flag indicating that the tested name is an 
assigned mnemonic or not. 



IMPLICIT INTEGER*2 (I-N) 
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INTEGER* 2 NCOL 

CHARACTER* 24 COLMNS (128), N.AME 
LOGICAL*! TEST 
1 = 1 

TEST= . FALSE, 

DO WHILE(TEST, EQ. .FALSE. . .i.ND . I . LE, 128 ) 

IF ( COLMNE ( I ) . EQ . NAME ) THEN 
TEST= .TRUE. 

END IF 
1 = 1 + 1 
END DO 
RETURN 
END 

Q-k* * 

Qkkk 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c*** 

IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 AR ( 1 2 8 ) , NO ( 1 2 8 ) ,NOR( 128 ) , DUM( 128 ) , FLAG2 ( 4 ) 
1 NOROW(2048) 

CHARACTER*45 DEVD I R , NAME* 10 
REAL*4 X(128) ,Y(128) 

DIMENSION NOCOL(256) 

DATA DEVDIR,NAME/' DUAO '/ 

DATA LOGOLD, LOGNEW/2 , 2/ 

FLAG2(4)=1 

NBYTES=NCOL*4 

CALL FICH ( '069' , LOGOLD, 1,DEVDIR, NAME, NROW,NBYTSS, 
1 'DIRECT', LEC,IMP) 

IF (NBROW.NE ,NROW) THEN 
NBYTES=NCOL*4 
LOGNEW=3 

CALL FICH( ' 069 ' , LOGNEW, 1 , DEVDI R , NAME , NROW , NBYTES , 
1 ' DIRECT ' LEC, IMP) 



'k'k-k-k'k'k-k-k-k'k-k-k'k'k-k-k-k-k'k-k-k'k-k-k'k'k-k'k-k-k'k'k-k'k'k'k'k-k'k'k-k'k'k'k'k'k'k'k'k'k'k-kx'k 

SUBROUT I NE REORD ( LEC , IMP , NCOL , NROW , FLAG2 , NOROW , NB.RCW 



ARGUMENTS 



LEC : The logical unit number for writing on 

terminal . 

IMP : The logical unit number for reading from 

terminal . 

NCOL : The number of columns 

NROW : The number of rows 

NOROW : Array the numbers of rows used as guides for 
ranking of the rows, 

NBROW : The number of row numbers used for row ranki 

•k'k'k'k'k'k'k-k'k'k'k-k-k-k-k-k-k-k-k'k-k'k'k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k’k-k-k-k-k'k-k'k-k'k-k 



) 

■*r 

the 

the 

the 

ng. 



0 , 
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DO I=1,N3RCW 

READ ( LOGOLD ' NCRCW ( I ) ) 
WRITE( LCGNEW I ) 

END DO 
NR0W=N3R0W 
ELSE 

DO I=1,N3R0W 

READ (LOGOLD 'I ) 

READ ( LOGOLD’ NOROW( I ) ) 
WRITE (LOGOLD' I ) 

WR ITS (LOGOLD 'NO ROW ( I ) ) 
J=I 

DO WHILE ( NOROW ( J ) . NE . 

J=J + 1 
END DO 

NOROW( J) =NOROW( I ) 

END DO 
END IF 

CLOSE ( LOGOLD) 

CLOSE ( LOGNEW) 

RETURN 

END 



(Y(J) , J=1 ,NCOL) 
( Y( J) , J=1 ,NCOL) 



(X( J) , J=1 ,NCOL) 
( Y( J) , J=1 ,NCOL) 
( Y( J) , J=1 ,NCOL) 
(X( J) , J=1 ,NCOL) 

) 



SUBROUTINE RANKl ( LEG , IMP , NCOL , NROW , NRANK , NNU ) 

C 

C Used to rearrange the columns of the data matrix 

C according the column numbers assigned by the user. 

C 

C ARGUMENTS : 

C 



c 


LEC 


: The 


logical unit number for 


writing on 


Lhe 


c 




terminal . 








c 


IMP 


: The 


logical 


unit number for 


reading from 


the 


c 




terminal . 








c 


NCOL 


: The 


number of 


columns . 






c 


NROW 


: The 


number of 


rows . 






c 


NRANK 


: Array storing 


the column numbers 


that deter: 


n i n e 


c 




the 


reorder i ng 


of the columns. 






c 

c 


NNU 


: The 


number of 


columns that will 


be ranked. 





ic ic ic ic ic if ~k -k i< -k ~k ~k -k 'k i< ~k i< i: ~k i< ~k i< ~k -k ~k ~k k if -k k -k ic ic 'k it: i< ic i( ~k ^ ii ii -k ~k -k M ~k ii: 



IMPLICIT INTEGER*2 (I-N) 
INTEGER* 2 NRANK (128) 
CHARACTER*24 A ( 1 2 8 ) , B ( 1 28 ) 
CHARACTER* 4 5 DEVDIR , NAME* 10 
REAL*4 X( 128 ) , Y( 128 ) 

DATA DEVDIR, NAME/ ’ DUAO '/ 

DATA LOGOLD, LOGNEW/ 2 , 2/ 
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C For the 'old' file. 

WRITE ( IMP, 100 ) 

NBYTES=NCOL*4 

CALL FICH (' 069 ', LOGOLD, 1 , DEVDIR, NAME, NRCW,N3YTES, 1 , 

1 ' DIRECT' , LEC, IMP) 

C For the eventual 'new' file. 

IF (NNU.NE.NCOL) THEN 
LOGNEW=3 
WRITE( IMP, 200) 

NBYTES=NNU*4 

CALL FICH ( '069' , LOGNEW , 1 , DEVDI R , NAME , NRCW , N3YTES , 0 , 

1 ' DIRECT' , LEC, IMP) 

END IF 

DO I=l,NROW 

READ (LOGOLD' I) ( X ( J ) , J= 1 , NCOL ) 

WRITE (LOGNEW I ) (X(NRANK( j) ) , J=1 ,NNU) 

END DO 
NCOL=NNU 
CLOSE (LOGOLD) 

CLOSE ( LOGNEW) 

RETURN 

100 FORMAT (/'$', 3X ,' Ass ign the ''OLD'' direct access file ; 
1 '/4X,37( '-' ) ) 

200 FORMAT (/'$', 3X ,' Ass ign the ''NEW' direct access file : 
1 ' /4X, 37( ' -' ) ) 

END 



i< ic ic ic ic i< ic ic ic ic ic ic ic ic ic ic i< ic ic ic ic ic ic "k ic ic ic ic ic ic -k ic ic i( -k ic "k ~k "k ~k -k 

SUBROUTINE RANK2 ( LEC , IMP , NCOL , NROW , MRANK , KMN , COLMNE ) 

^k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

c 

C Used to rearrange the columns of the data matrix 

C according the column mnemonic names. It calls TRANS to 

C transform the column name to column number. 

C 

C ARGUMENTS : 

C 



c 


LEC 


: The logical 


unit 


numbe r 


for 


writing on 


the 


c 

c 


IMP 


terminal . 

: The logical 


unit 


number 


for 


reading from 


the 


c 

c 

c 


NCOL 

NROW 


terminal . 

: The number of 
: The number of 


columns . 
rows 








c 


MRANK 


: Array storing 


the 


column 


mnemonic names 


that 
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n n n n n 



determine the reordering of the 
KMN : The number of columns chat vill 
COLMNE : Array storing the column mnemon 

IMPLICIT INTEGER* 2 (I-N) 

INTEGER*2 N(128) 

REAL *4 X(123),Y(128) 

CHARACTER* 4 5 DEVD I R , NAME * 10 
CHARACTER* 2 4 COLMNE ( 128 ) ,MRANK( 123 ) 

DATA DEVOIR, NAME/ ' DUAO '/ 

DATA LOGOLD/2/ 

NBYTES=NCOL*4 
WRITE( IMP, 100 ) 

CALL FICH( ' 069 ' , LOGOLD, 1 , DEVD I R , NAME , NROW , N3YTES , 1 , 

1 'DIRECT' ,LEC, IMP) 

CALL TRANS ( NCOL , COLMNE , KMN , MRANK , N ) 

DO 1=1, NROW 

READ {LOGOLD' I ) ( X ( J ) , J= 1 , NCOL ) 

WRITE (LOGOLD' I ) (X(N( J) ) , J=1 ,XMN) 

END DO 

CLOSE ( LOGOLD) 

RETURN 

100 FORMAT(/' S ', 3X, ' Assign the ''OLD'' direct access file : 

1 '/4X,37('-')) 

END 

(2************************************************:*r**-*r***xx'*r'*r** 

SUBROUTINE REARl ( LEC , IMP , NCOL , NROW , NKEY , NN ) 

(^**********************************************************x** 

C 

C Used to continue the process of multi-sorting according 

C column numbers by calling the subroutine REAR . 

C 

C ARGUMENTS : 

C 

C LEC 

C 

C IMP 

C 

C NCOL 

C NROW 

C NKEY 

C 

C NN 

C 

c 



The logical unit number for writing on the 
terminal . 

The logical unit number for reading from the 
terminal . 

The number of columns. 

The number of rows. 

Array storing the column numbers used as sorting 
column guides. 

The number of repeating sortings according 
column number. 



columns . 
be ranked, 
ic nam^es. 

★ *x?kr***X5*rx'*f-*rxXxxx 
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IMPLICIT INTEGSR*2 (I-N) 

INTEGER* 2 NKEY(12S) 

DATA LOGOLD/2/ 

CALL REAR ( LEC , IMP , NCOL , NRCW , NKEY , NN ) 

RETURN 

END 



Q* * * -k 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Q-k * * k 



SUBROUTINE REAR2 ( LEC , IMP , NCOL , NROW , COLMNE , MNE , NM ) 

It functions like REARl for column assignment according 
column names. It calls TRANS to transform column names 
to colun numbers. 



ARGUMENTS 
LEC 
IMP 



for writing on the 
for reading from the 



: The logical unit number 
terminal . 

: The logical unit number 
terminal. 

NCOL : The number of columns. 

NROW : The number of rows. 

COLMNE: Array storing the column mnemonic names. 

MNE : Array storing the names of columns which will be 
used as sorting column guides. 

NM : The number of repeating sortings according 
column mnemonic names. 



IMPLICIT INTEGER*2 (l-N) 

INTEGER* 2 N(128) 

CHARACTER* 2 4 COLMNE ( 128 ) , MNE ( 128 ) 
DATA LOGNEW/2/ 

CALL TRANS (NCOL, COLMNE, NM, MNE, N) 
CALL REAR(LEC, IMP, NCOL, NROW, N,NM) 
RETURN 
END 



i( i: ic i( i: i( -k 'k i< -k -k -k -k -k i( -k i( ii; ii; i< -k ii; -k ~k ir i: -k ic ii: -k if! -k ic -k -k -k -k ic i< -k ic -K -M -k 

SUBROUT I NE REAR ( LEC , I MP , NCOL , NROW , AR , NSORT ) 

C 

C Used for the multisorting of the data matrix. It opens 

C the direct-access file of data, and consequenty calls 

C the subroutine EXTREE for the sorting. It rearranges the 

C data according the filnal inverted relative addresses 

C without using extra file for temporary storage of the 

C data. 

c 
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ARGUMENTS : 



LEC 


: The logical unit number for writing 
terminal . 


on the 


IMP 


: The logical unit number for reading 
terminal . 


from the 


NCOL 


: The number of columns. 




NROW 


: The number of rows. 




AR 


: Array storing the numbers of columns 
guides for the mult isort ing . 


used as 


NSORT 


: The number of guides. 





i<ififi<icicici<i<i(i(icicificici<7Ki<ici(-k'kicicic-k'ic-k'k'k'k'k'k'k'kic-k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'KiK-k 



IMPLICIT INTEGER*2 (l-N) 

INTEGER* 2 AR ( 1 2 8 ) , NO ( 1 2 8 ) , NOR (123) ,DUM(128) 

CHARACTER* 4 5 DEVD I R , NAxME * 10 
REAL*4 X( 128 ) , Y( 128 ) 

DATA DEVOIR, NAME/ 'DUAO V 

DATA LOGOLD/2/ 

NBYTES=NCOL*4 
WRITE( IMP, 100) 

CALL FICH( '069' , LOGOLD , 1 , DEVD I R , NAME , NROW , N3YTES , 1 , 

1 ' DIRECT' , LEC, IMP) 

PART 1 : Successive actualization of NO() according to the 
address calculations after each sort over. 

For each sorting colum guide. 

DO 1=1, NROW 
NOR ( I ) = I 
END DO 

DO J=l,NSORT 
DO 1=1, NROW 

For next column guides, oermits actualization of NO( ) . 
READ ( LOGOLD ' NOR (D) (X(K),K=1, NCOL ) 

Y( I )=X(AR(J) ) 

END DO 

Tree sort is needed for multi sorts, if the data are 
in previous order, the user will "burst" them ’ey a 
dummy sort according to any unsorted column to 
restore the performances of this method. 

CALL EXTREE (Y, NO, NROW, 1) 

DO L=l,NROW 

K=NOR(NO( L) ) 



157 



n n n n 



DUM(L) =K 
END DO 
DO N=l,NROW 

NOR(N) =DUM(N) 
END DO 
END DO 



PART 2 : Rearranging lines according to last NO( ) , vithout 
extra storage. 

DO I=1,NR0W 

READ(LOGOLD' I ) ( X ( J ) , J = 1 , NCOL ) 

READ (LOGOLD' NOR ( I ) ) (Y(J) , J=l,NCOL) 

WRITE( LOGOLD' I ) ( Y ( J ) , J= 1 , NCOL ) 

WR I TE( LOGOLD' NOR ( I) ) (X(J) ,J=l,NCOL) 

J=I 

DO WHILE(NOR( J) . NE . I ) 

J=J + 1 
END DO 

NOR(J)=NOR( I ) 

END DO 

CLOSE (LOGOLD) 

RETURN 

100 FORMAT (/' S 3X Ass ign the ''OLD'' direct access 
1 '/4X,37( '-' ) ) 

END 






SUBROUTINE TRANS ( NCOL , COLMNE , Nl , N2 , N ) 



c 

C Used to transform 

C column numbers. 

C 

C ARGUMENTS : 

C 

C NCOL : 

C COLMNE : 

C Nl : 

C N2 : 

C 

C N 

C 
C 



The number 
Array stor 
The number 
Array sto 
for the mu 
Array sto 
t rans forma 



column mnemonic names to corresponding 



of columns. 

ing the column mnemonic names, 
of guides. 

ring the column names used as guides 
1 1 i sor t i ng . 

ring the column numbers after 
t ion . 

•k'k'k-k-kiz'k-k'k'k'k-k-k-kiz'k-k'k'k-kif'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k 



IMPLICIT INTEGER*2 (l-N) 
INTEGER*2 N(128) 

CHARACTER* 2 4 COLMNE ( 1 2 8 ) , N2 ( 1 28 ) 
LOGICAL*! TEST 



DO I=1,N1 
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DO J=l,NCOL 

IF (COLMNE( J) .FQ.N2( I ) ) THEN 
TEST= .TRUE. 

ELSE 

TEST=. FALSE. 

END IF 

IF ( TEST. EQ. .TRUE. ) THEN 
N( I ) =J 
END IF 
END DO 
END DO 
RETURN 
END 



SUBROUTINE COMROW{ LEG , I.MP , LOGN , .NCOL , .NROW , FLAGl , FLAG 2 , 

1 COLMNE , NC , NCO , NC I N , I J , A , 3 , ROWMNE 1 , NR , 

2 NRO , NR I N , ROWMNE 2 , H 1 FNAME , H 2 FN A.ME , RM I N , 

3 RMAX, NT,NTR, .NTIN) 

-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'^'k-k'k'kk'k'k'k'k'k'k'^'^'k-k'k'k'k'k'k'k'k'k'k'k'k'^'k'k'k'k'k'k'k'k'k'k'k'k'k 



( 2 * * * * 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



Used to merge (combine) two data files and 
in the row-row (one over the other) sense. 

ARGUMENTS : 



their headers 



c 


LEG 


: The logical unit number for writing 


on the 


c 




terminal . 




c 


IMP 


: The logical unit number for reading 


from the 


c 




terminal . 




c 


LOGN 


: The logical chanel for the file 


on which 


c 




will be stored the header's data. 




c 


NCOL 


: The number of columns. 




c 


NROW 


: The number of rows. 




c 


FLAGl 


: Integer array of six elements used 


as flag 


c 




to indicate the existence or not 


of the 


c 




several informations regarding the columns. 


c 


FLAG2 


: The corresponding flag for rows. 




c 


COLMNE 


: Array storing the column mnemonic names. 


c 


NC 


: The number of assigned column mnemon 


ic names 


c 


NCO 


: The numbers of columns for which have been 



NCIN 
IJ 
A, B 



ROWMNE 1 

NR 

NRO 

NRIN 



assigned names. 

The invert relative addresses for COLMNE. 

The number of assigned tracing extre.ma sets. 
Arrays storing the number of row on which 
starts a set of common name rows and the 
on which it terminates, 
the row mnemonic names, 
assigned row mnemonic names, 
of rows for which have been 



corresponding 
Array storing 
The number of 
The numbers 
assigned names. 

The invert relative 



addresses of ROWMNE. 
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C R0W'MNE2 

C HIFNAME 

C 

C H2FNAME 

C RMIN,RMAX 

C 
C 

C NT 

C 

C NTR 

C 

C NTIN 

C 

ic -k if "k "k -k "k -k -k if -k 



: Array storing the mnemonics of sets of rovs . 

: The name of the first header's file vhich 
will be merged. 

: The name of the second file for merging. 

: Arrays storing the minimum and the maximum 
values between which tracing of the data is 
going to take place. 

: The number of columns for which tracing 
extrema have been assigned. 

: The column numbers for which for which 
tracing extrema have been assigned. 

: The invert relative addresses for RMI,.R.MAX. 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkik'^^ 



IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 FLAG1(6) ,FLAG2(3) ,NCO(128) ,NRO(128) ,A(128) , 

1 B(128) , AD,BD,NTR(128) ,NCOD( 128) ,FLAG12(6) , 

2 FLAG2 2 ( 3 ) ,NTRD( 128 ) , NTIN ( 12 8 ) , NT I ND ( 1 28 ) , 

3 NRIN( 128 ) ,NCIN( 128 ) , NCIND( 128 ) 

CHARACTER* 2 4 COLMNE(128) , HIFNAME , H2FNAME , COLMNED ( 1 2 3 ) , 

1 ROWMNEl ( 128 ) , R0WMNE2 ( 128 ) , ROWMNED 

REAL*4 RMIN(128) ,RMAX(128) ,RMIND(128) ,RMAXD(123) ,X(128) 
CHARACTER*45 DEVD I R , NAME* 1 0 

DATA DEVOIR, NAME/ 'DUAO '/ 

DATA LOGNEW, LOGOLDl , LOGOLD2/3 ,1,2/ 

C Open the first header’s file. 

OPEN(UNIT=LOGN, FILE=H1FNAME, STATUS= 'OLD' ) 

REWIND LOGN 

C Read the data to be combined. 

READ( LOGN, 100 ) NCI , NRl , NCA , NRA , IJA,NTA 
READ{ LOGN, 200) ( FLAGl ( I ) , I = 1 , 6 ) 

IF (FLAGl ( 1) .EQ. 1) THEN 

READ( LOGN, 300) (COLMNE( I ) , 1=1, NCA) 

READ( LOGN, 200) ( NCOD ( I ) , I = 1 , NCA ) 

READ( LOGN, 200 ) (NCIN( I ) , 1=1 , NCA) 

DO 1=1, NCA 

COLMNED ( I ) =COLMNE ( NC I N ( I ) ) 

END DO 
END IF 

IF (FLAGK2) .EQ. 1) THEN 

READ (LOGN, 500 ) ( RMI N ( I ) , I = 1 , NTA ) 

READ(LOGN, 500 ) ( RMAX ( I ) , I = 1 , NTA ) 

READ(LOGN, 200 ) ( NTRD ( I ) , I = 1 , NTA) 

READ( LOGN, 200) (NTIN( I •) , 1 = 1 , NTA) 

DO 1=1, NT A 

RMIND( I ) =RMIN(NTIN( I ) ) 
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R.MAXD ( I ) = P-.MAX ( NT I N ( I ) ) 

END DO 
END IF 

READ( LOGN, 200 ) ( FLAG2 ( I ) ,1=1,3) 

IF (FLAG2(1) .EQ.l) THEN 

READ ( LOGN ,300) ( ROWMNS 1(1) ,1=1, NRA ) 

READ ( LOGN , 200 ) ( NRO ( I ) , I = 1 , xNRA ) 

READ( LOGN, 200) (NRIN(I) , 1=1, NRA) 

END IF 

IF (FLAG2(2) .EQ.l) THEN 

READ (LOGN, 300 ) (ROWMNS2 ( I ) , 1=1 , IJA) 

READ( LOGN, 200 ) ( A ( I ) , I = 1 , IJA) 

READ( LOGN, 200) ( 3 ( I ) , I = 1 , IJ A ) 

END IF 

CLOSE (UN I T= LOGN) 

C Open the second header's file. 

OPEN(UNIT = LOGN, FILE = H2FNA.ME,STATUS= ' OLD' ) 

REWIND LOGN 

READ(LOGN, 100) NC2 , NR2 , NC3 , NR3 , IJB,NT3 

C If the two headers have the same number of columns 

C the process of combination is continued. 

IF (NC1.EQ.NC2.AND. (xNRl+NR2) .LE.128) THEN 
NCOL=NCl 
NR0W=NR1+NR2 

READ ( LOGN, 20 0 ) ( FLAG12 ( I ) , 1 = 1 , 6 ) 

IF (FLAG12( 1) .EQ. 1) THEN 
FLAGK 1)=1 
NC=NCA+NCB 

READ( LOGN, 300) ( COLMNE ( I ) , I=1,NCB) 

READ( LOGN, 200) (NCOD( I ) , I=1+NCA,NC) 

READ( LOGN, 200) (NCIN( I) , 1=1, NC3) 

DO I=1,NCB 

COLMNE D( I+NCA) = COLMNE ( NC IN ( I ) ) 

END DO 

CALL EXSHl(NCOD,NCIND,NC, 1) 

C Combination of mnemonic names. 



J=1 
K=1 
L = 0 

DO WHILE(J.LE.NC) 

I F ( NCOD ( J ) . EQ . .NCOD ( J + 1 ) ) THEN 
NCO(K)=NCOD(J) 

COLMNE ( K ) =COLMNED ( NC I ND ( J ) ) 
NCIN(K) =K 
J=J + 2 
K=K+1 
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L = L+1 
ELSE 

NCO(K) =NCOD( J) 

COLMNE(K) =COLMNED(NCIND( J) ) 
NCIN(K) =K 
J=J + 1 
K=K+1 
END IF 
END DO 
END IF 
NC=NC-L 

IF (FLAG12(2) .EQ. 1) THEN 
FLAG1(2)=1 
NT=NTA+NTB 

READ ( LOGN, 500 ) (RMIN( I) , 1=1, NT3) 
READ(LOGN, 500) (RMAX( I ) , 1=1, NTB) 
READ ( LOGN, 200 ) ( NTRD ( I ) , I=1+NTA,NT) 

READ (LOGN, 200) (NTIN(I) ,1=1, NTB) 

DO 1=1, NTB 

RNIND( I+NTA) =RMIN(NTIN( I ) ) 

RMAXD( I+NTA) =RMAX(NTIN( I ) ) 

END DO 

CALL EXSH1(NTRD,NTIND,NT, 1 ) 

J = 1 
K=1 
L = 0 

DO WHILE(J.LE.NT) 

IF (NTRD(J) .EQ.NTRD( J+1) ) THEN 
NTR(K) =NTRD( J) 

RWIN(K)=MIN(RMIND(NTIND(J) ) , 

1 RNIND(NTIND( J+1 ) ) ) 

RMAX ( K ) =MAX ( RMAXD ( NT I ND ( J ) ) , 

1 RMAXD(NTIND( J+1 ) ) ) 

NTIN(K) =K 
J=J + 2 
K = K+1 
L = L+1 
ELSE 

NTR(K) =NTRD( J) 

RMIN(K) =RMIND(NTIND( J) ) 
RMAX(K) =RMAXD(NTIND( J) ) 
NTIN(K) =K 
J=J + 1 
K=K+1 
END IF 
END DO 
END IF 
NT=NT-L 

READ( LOGN, 200 ) ( FLAG2 2 ( I ) , I = 1 , 3 ) 

IF (FLAG22( 1) .EQ. 1) THEN 
NR=NRA+NRB 
FLAG2(1)=1 
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RE AD ( LOGN , 3 0 0 ) ( ROWMNE 1 ( I ) , I = 1 - NRA , NR ) 

DO J=1,NRB 

READ ( LOGN ,200) NROD 
NRO( J+NRA) =NROD+NRl 
END DO 
DO J=1,NR3 

RE AD ( LOGN, 200 ) NRIND 
NR I N ( J + NRA ) = NR I ND + NRA 
END DO 
END IF 

IF (FLAG22 ( 2 ) .EQ. 1) THEN 
FLAG2 ( 2 ) =1 
IJ=IJA+IJ3 
DO 1=1, IJ3 

RE AD ( LOGN, 300 ) ROWMNED 
ROWMNE2( I+IJA)=ROWMNED 
END DO 
DO 1=1, IJB 

READ ( LOGN, 200 ) AD 
A( I + IJA)=AD+NR1 
END DO 
DO 1=1, IJB 

READ( LOGN, 200) 3D 
3( I+IJA)=BD+NR1 
END DO 
END IF 

CLOSE(UNIT=LOGN) 

NBYTES=NCOL*4 
WRITE( IMP, 600 ) 

CALL FICH( '069' , LOGOLDl , 1 , DEVDI R , NAME , NRl , NBYTES , 1 , 

1 ' DIRECT' , LEC, IMP) 

WRITE( IMP, 700 ) 

CALL FICH( '069' , LOGOLD2 , 1 , DEVD I R , NAME , NR2 , NBYTES , 1 , 

1 'DIRECT' , LEC, IMP) 

WRITE( IMP, 800 ) 

CALL FICH( ' 069' ,LOGNEW, 1 , DEVDI R , NAME , NR1+NR2 , NBYTES , 
1 0, 'DIRECT' ,LEC, IMP) 

DO 1=1, NRl 

RE AD (LOGOLDl' I ) ( X ( J ) , J= 1 , NCOL ) 

WRITE(LOGNEW I ) (X(J) , J=l,NCOL) 

END DO 
DO I=1,NR2 

READ( LOGOLD2 ' I ) ( X ( J ) , J= 1 , NCOL ) 

WRITE (LOGNEW I+NRl) (X(J) , J=1 ,NCOL) 

END DO 
ELSE 

WRITE( IMP, 400 ) 

CLOSE ( LOGOLDl ) 

CLOSE (LOGOLD2 ) 

CLOSE ( LOGNEW) 

RETURN 
END IF 
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100 F0EIMAT(6I5) 

200 FORMATdS) 

300 FOFLMAT(A24) 

400 FOFLMAT(///4X, 'COMBINATION IS NOT POSSIBLE DUE TO', 

1 7X, ' DIFFERENT NUMBER OF COLUMNS!!’) 

500 FORMAT ( F14 . 6) 

600 FORMAT(/ '$', 3X, ' Assign the first ''OLD'' direct 
1 'access file : ' /4X, 37 ( ' - ’ ) ) 

700 FORMAT (/'$', 3X ,' Ass ign the second ''NEW' direct', 

1 ' access file : ' /4X , 37 ( ’ - ' ) ) 

800 FORMAT (/'$', 3X ,' Ass ign the ''NEW' direct access file : 
1 '/4X,37( '-’ ) ) 

CLOSE (LOGOLDl ) 

CLOSE (LOGOLD2 ) 

CLOSE ( LOGNEW) 

RETURN 

END 






^ ^ ^ ^ 7^ 



c** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



SUBROUTINE COMCOL ( LEC , IMP , LOGN , NCOL , NROW , FLAGl , FLAG2 , 

1 COLMNE , NC , NCO , NC I N , I J , A , 3 , ROWMNE 1 , NR , 

2 NRO , NR I N , ROWMNE 2 , H 1 FNAME , H 2 F NAME , 

3 FIMIN,RMAX,NT,NTR,NTIN) 

Used to merge (combine) two data files and their headrs 
in the column-column (one aside the other) sense. 

ARGLIMENTS : 

LEC 

IMP 

LOGN 

NCOL 
NROW 
FLAGl 



FLAG2 

COLMNE 

NC 

NCO 

NCIN 

IJ 

A,B 



ROWMNE 1 



for writing on the 



rrom tne 



on wnicn 



as flag 
of the 
columns . 



The logical unit number 
terminal . 

The logical unit number for reading 
terminal . 

The logical chanel for the file 
will be stored the header’s data. 

The number of columns. 

The number of rows. 

Integer array of six elements used 
to indicate the existence or not 
several informations regarding the 
The corresponding flag for rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic na.mes. 
The numbers of columns for which have been 
assigned names. 

The invert relative addresses for COLMNE. 

The number of assigned tracing extrema sets. 
Arrays storing the number of row on which 
starts a set of common name rows and the 
corresponding on which it terminates. 

Array storing the row mnemonic names. 
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C NR : 

C NRO : 

C 

C NR IN 

C ROWMNE2 

C HIFNANIE : 

C 

C H2FNAME : 

C RMIN,RMAX : 

C 

C 

C NT 

C 

C NTR 

C 

C NT IN : 

C 

-k -k -k -k -k -k -k -k -k -k -k -k -k 



The number of assigned row mnemonic names. 
The numbers of rows for which have been 
assigned names. 

The invert relative addresses of RCNMNE. 
.\rray storing the mnemonics of sets of rows. 
The name of the first header's file which 
will be merged. 

The name of the second file for merging. 
Arrays storing the minimum and the maxi.mu.m 
values between which tracing of the data is 
going to take place. 

The number of columns for which tracing 
extrema have been assigned. 

The column numbers for which for which 
tracing extrema have been assigned. 

The invert relative addresses for RMI,RMAX. 

kk'k'kk'k'kk'k'kkk'kkkk'kkkkkkkkkkkkkk'k:xkkkkkkkkkkk-x 



IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 FLAG1(6) ,FLAG2(3) ,NCO(128) , NRO (123) ,A(123) , 

1 B(128) , NTR (128) ,NROD(128) ,FLAG12(6) ,FL.\G22(3) , 

2 NTRD,NTIN( 12 8) , NT I ND , NR I N ( 1 2 8 ) , NC I N ( 1 2 3 ) , 

3 NRIND( 128 ) ,NCIND 

CHARACTER* 2 4 COLMNE(128) , HIFNAME , H2FNAME , RCWMNS1D( 128) , 

1 ROWMNEK128) , R0WMNE2 ( 1 2 8 ) , .ROWMNEO 

REAL *4 RMIN(128) ,RMAX(128) ,RMIND(128) ,RMAXD(123) ,X(128) 

CHARACTER* 4 5 DEVDI R , NAME * 1 0 

DATA DEVOIR, NAME/' DUAO '/ 

DATA LOGNEW, LOGOLDl , LOGOLD2/3 ,1,2/ 

OPEN(UNIT=LOGN, FILE=H1FNAME,STATUS= 'OLD' ) 

REWIND LOGN 

READ(LOGN, 100 ) NCI , NRl , NCA , NRA , IJA,NTA 
READ(LOGN, 200 ) ( FLAGl ( I ) , I = 1 , 6 ) 

IF ( FLAGl ( 1 ). EQ. 1 ) THEN 

READ ( LOGN, 300 ) (COLMNE( I ) , 1=1 , NCA) 

READ( LOGN, 200 ) (NCO( I ) , 1=1 , NCA) 

READ ( LOGN, 200 ) ( NC IN ( I ) , I = 1 , NCA ) 

END IF 

IF ( FLAGl ( 2 ) . EQ. 1) THEN 

READ ( LOGN, 500 ) (RMIN( I ) , 1=1, NTA) 

READ ( LOGN, 500 ) ( RMAX ( I ) , I = 1 , NTA ) 

READ( LOGN, 200 ) ( NTR ( I ) , I = 1 , NT A ) 

READ( LOGN, 200 ) (NTIN( I ) , 1=1 , NTA) 

END IF 

READ( LOGN, 2 00 ) ( FLAG2 ( I ) , I = 1 , 3 ) 

IF (FLAG2(1) .EQ.l) THEN 

READ ( LOGN, 300 ) ( ROWMNEl ( I ) , I = 1 , NRA ) 

READ( LOGN, 200) (NROD( I ) , 1=1, NRA) 

READ ( LOGN, 200 ) (NRIN( I ) , 1=1 , NRA) 



165 



DO 1=1, NRA 

ROWMNE 1 D ( I ) = RCWMNE 1 ( NR I N ( I ) ) 

END DO 
END IF 

IF (FLAG2(2) . EQ . 1 ) THEN 

READ ( LOOM, 300 ) (ROWMNS2(I) ,1=1, IJA) 
READ(LOGN, 200) ( A ( I ) , I = 1 , IJA) 

READ(LOGN, 200 ) ( B ( I ) , I = 1 , IJ A ) 

END IF 

CLOSE(UNIT=LOGN) 

OPEN(UNIT=LOGN,FILE=H2FNAME,STATUS= 'OLD' ) 
REWIND LOGN 

READ(LOGN, 100) NC2 , NR2 , NC3 , NR3 , IJ3,NT3 
IF (NR1.EQ.NR2.AND.NC1+NC2.LE.128) THEN 
NROW=NRl 
NCOL=NCl+NC2 

READ (LOGN, 200) ( FLAGl 2 ( I ) , I = 1 , 6 ) 

IF (FLAG12(1) .EQ. 1) THEN 
NC=NCA+NC3 
FLAGK 1)=1 

READ(LOGN, 300) (COLMNE( I ) , I=1+NCA,NC) 
DO I=1,NCB 

READ( LOGN, 200 ) NCOD 
NCO( I+NCA) =NCOD+NCl 
END DO 
DO J=1,NC3 

READ ( LOGN, 200 ) NCIND 
NCIN( J+NCA) =NCIND+NCA 
END DO 
END IF 

IF (FLAG12(2) .EQ. 1) THEN 
NT=NTA+NTB 
FLAG1(2)=1 

READ ( LOGN, 500 ) (RMIN( I ) , I=NTA+1 ,NT) 
READ( LOGN, 500) (RMAX( I) , I=xNTA+l,NT) 

DO J=1 ,NT3 

READ( LOGN, 200 ) NTRD 
NTR( J+NTA) =NTRD+NC1 
END DO 
DO J=1,NTB 

READ ( LOGN, 200 ) NTIND 
NTIN( J+NTA) =NTIND+NTA 
END DO 
END IF 

READ( LOGN, 200) ( FLAG2 2 ( I ) , I = 1 , 3 ) 

IF (FLAG22(1) .EQ.l) THEN 
FLAG2 (1 )=1 
NR=NRA+NR3 

READ(LOGN, 300) (ROWMNEK I ) , 1=1 , NRB ) 
READ ( LOGN, 200 ) (NROD( I) , I=1+NRA,NR) 
READ (LOGN, 200 ) (NRIN( I ) , 1=1 , NRB) 

DO 1=1, NRB 
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100 

200 

300 

400 

500 

600 

700 



RCW7-1NE 1 D ( I - NRA ) = RCWMNE 1 ( NR I N ( I ) ) 

END DO 

CALL EXSH1(NRCD,NRIND,NR, 1 ) 

J = 1 
K=1 
L=0 

DO WHILE (J.LE.MR) 

I F ( NROD { J ) . SQ . NROD ( J + 1 ) ) THEN 
NRO(K) =NROD( J) 

ROWMNE 1 ( K ) = ROWMNE 1 D ( NR I ND ( J ) ) 

NRIN(K) =K 
J=J + 2 
K=K+1 
L=L+1 
ELSE 

NRO(K) =NROD( J) 

ROWMNE 1 ( K ) = ROW>lNE 1 D ( NR I ND ( J ) ) 

NRIN(K) =K 
J=J + 1 
K=K+1 
END IF 
END DO 
END IF 
NR=NR-L 

CLOSE(UNIT=LOGN) 

NBYTES=NC1*4 
WRITE( IMP, 600 ) 

CALL FICH( '069' , LOGOLDl , 1 , DEVD I R , NAME , NRl , NBYTES , 
1 1, ' DIRECT' ,LEC, IMP) 

NBYTES=NC2*4 
WRITE( IMP, 700 ) 

CALL FICH( ' 069' , LOGOLD2 , 1 , DEVD I R , NAME , NR2 , NBYTES , 
1 1 , 'DIRECT' ,LEC, IMP) 

NBYTES=(NC1^NC2) *4 
WRITE( IMP, 800 ) 

CALL FICH( ' 069 ' , LOGNEW , 1 , DEVD I R, NAME , NRl +NR2 , 

1 NBYTES, 0, 'DIRECT' ,LEC, IMP) 

DO 1=1, NROW 

READ ( LOGOLDl ' I ) ( X ( J ) , J= 1 , NC 1 ) 

READ( LOGOLD2 ' I ) (X(J) ,J=NC^1,NC2) 

WRITE{ LOGNEW' I ) ( X ( J ) , J = 1 , NC2 ) 

END DO 
END IF 
FORMAT (615) 

FORMAT (15) 

FORMAT (A2 4 ) 

FORMAT ( ///4X, ' COMBINATION IS NOT POSSIBLE DUE TO', 

1 7X, ' DIFFERENT NUMBER OF ROWS!!') 

FORMAT { F14 .6) 

FORMAT {/'$', 3X ,' Ass ign the first ''OLD'' direct', 

1 ' access file : ' /4X , 37 ( ' - ' ) ) 

FORMAT{ / ' $ ' , 3X , ' Ass ign the second ''NEW'' direct ', 
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non 



1 'access file : ' /4X , 3 7 ( ' - ' ) ) 

800 FORMAT (/'$', 3X Ass ign the ''NEW' direct access file ; 
1 '/4X,37( '-' ) ) 

CLOSE (LOGOLDl ) 

CLOSE (LOGOLD2 ) 

CLOSE (LOGNEW) 

RETURN 

END 







SUBROUTINE EXTREE ( A , NO , N , I ND ) 
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C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



Subroutine for internal and address calculation sort usin 
the tree sort ("Monkey-puzzle sort") to obtain zhe ran.< o 
the X's, in this case the original array X() is nor 
mod i f i ed . 

If the X() are in random order the number of comparisons is 
of the order of N log2(N); if the X() are already in the 
required order or reverse order the number of comparisons 
is of the order of N*N/2. 

ARGUMENTS : 

X : Elements to sort. 

NO : Address calculation for the rank. 

N : Number of elements to sort. 

IND : If >0, elements are sorted in ascending order, if 
not, in descending order. 

2048 items maximum. 

Reference : 

Windley P.F. (1960) ; "Trees, Forests and Rearranging", 

Computer J, vol.3, no . 2 , July, p. 84-88. 






C 

C 

C 



IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 I LB (2048), I RB (2048), NO (2048) 
REAL*4 A(2048) , AI , A J 



Place at first A(l) on the root. 



ILB( 1)=0 
IRB( 1)=0 
DO I=2,N 
ILB( I ) =0 
IRB( I ) =0 
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CP** * 



nnn nnnn nnnnn nnno nnnn nnn non onn 



C 



Select the root of the tree as the iterr. for comparison. 

J=1 

K=1 

DO WHILE(K.EQ. 1) 

K = 0 

Permutation in function of IND. 

IF(IND.GT.O) THEN 

Sort by ascending order. 

AI=A{ I ) 

AJ=A{ J) 

ELSE 

Sort by descending order. 

AI=A{J) 

AJ=A{ I ) 

END IF 

Compare the new item with the item for comparison. If 
the new item should follow, 

IF(AI.GE.AJ) THEN 

If the item for comparison has a right brance, take the 
item to which that branch points as the new item for 
compar i son , 

IF { I.RB(J) .LE.O) THEN 

Copy the backtrack of the item for comparison into the 
backtrack of the new item, and set the right pointer of 
the item for comparison to point to the new item. 

I RB { I ) = I RB ( J ) 

IRB( J) =I 
ELSE 

J=IRB( J ) 

Make the backtracks of the new item point to the item 
for comparison, and set the left pointer of the item for 
comparison to point to the new item. 

K=1 
END I F 
ELSE 

If the item for comparison has a left branch, take the 
item to which that branch points as the new item for 
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on noon non non noon noon on 



compar i son . 

IF ( ILB(J) .SQ.O) THEN 
IRB( I ) =-J 
ILB( J) =I 
ELSE 

J=ILB( J) 

K = 1 
END IF 
END IF 
END DO 
END DO 

Start with the item at the root of the t.ree. 

M=0 

J=1 

K=1 

DO WHILE (K.EQ. 1) 

K=0 

If this item has a left branch, take the item to which 
that branch points. 

IF( ILB( J) .GT. 0 ) THEN 
J=ILB( J) 

K=1 

ELSE 

L=1 



This is the next item in order. 

DO WHILE ( L. EQ. 1 ) 

L=0 



Ordered item found, adress NO(). 

M=M+1 
NO(M) =J 

If this item has a right branch, take the item to which 
that branch points. 

IF( IRB( J) .NE. 0) THEN 

IF( IRB(J) .GT.O) THEN 
J= IRB(J) 

K=1 

ELSE 

J=-IRB(J) 

Take the item to which the backtrack points. 



170 



c 

END I? 

ELSE 

C End of process. 

RETURN 
END I? 

END DO 
END IF 
END DO 

END 

SUBROUTINE RANDOM (LEG, IMP , NCOL , NROW ) 
C 



c 


Used 


to randomize 


the 


data mat 


r i X 


of an 


assigned 


c 

c 


mass- 


■storage file. 












c 

c 


ARGUMENTS : 












c 


LEC 


: The logical 


unit 


number 


for 


vr i t i ng 


on che 


c 




terminal. 












c 


IMP 


: The logical 


unit 


numbe r 


for 


reading 


from the 


c 




terminal . 












c 


NCOL 


: The number of 


columns . 








c 


NROW 


: The number of 


rows 


, 









C 

IMPLICIT INTEGER*2 (I-N) 

REAL*4 XRAN(2048) 

INTEGER* 2 AR(128),NO(128),INIT(6) 

CHARACTER*45 DEVDI R , NAME* 10 
REAL*4 X( 128 ) , Y( 128 ) 

DATA DEVDIR,NAME/'DUAO :',' '/ 

DATA LOGOLD/2/ 

DATA INIT/59 , 47 , 62 , 38 , 45 , 23/ 

DATA INDRAN/1/ 

NBYTES=NCOL*4 
WRITE( IMP, 100 ) 

CALL FICH( ' 069 ' , LOGOLD, 1 , DEVD I R , NAME , NROW , NBYTES , 1 , 
1 ' DIRECT' , LEC, IMP) 

DO 1=1, NROW 

XRAN( I ) =RANDAN( INIT, INDRAN) 

END DO 

C Use tree sort because data are randomized. 
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CALL EXTREE ( XRAN , MO , NROW , 1 ) 

DO I=l,MROw 

READ(LOGOLD' I ) (X(J) , J=1 ,MCOL) 

READ( LOGOLD’ NO( I ) ) ( Y{ J) , J=1 ,MCOL) 

WRITE ( LOGOLD' I ) ( Y( J ) , J=1 ,NCOL) 

WRITE( LOGOLD’ MO ( I ) ) (X( J) , J=1 ,MCOL) 

J=I 

DO WHILE{NO{ J) .ME . I ) 

J=J+1 
END DO 
NO( J)=NO( I ) 

END DO 

CLOSE ( LOGOLD) 

RETURN 

100 FORMAT(/' $', 3X, ' Assign the ’’OLD'' direct access file : 
1 '/4X,37( 

END 

FUNCTION RANDAN( INIT, IND) 

c 

IMPLICIT INTEGER*2 (I-N) 

C 

DOUBLE PRECISION X 
C 

INTEGER* 2 A(6),INIT(6),LN(6) ,LNPl(6) ,C,P,Q 
C 

DATA M/36/Q/6/A/59,47 ,62,38,45,23/ 

C 

IF( IND.NE. 0)THEN 
C 

1 = 0 

DO WHILE ( I .LT.Q) 

1 = 1 + 1 

LN( I ) =INIT{ I ) 

END DO 
C 

IND=0 

C 

ELSE 
END IF 
C 

c=o 

K=Q 

MQ=M/Q 
IMQ=2 . **MQ 
C 

DO WHILE (K.GT.O) 

IQMK=Q-K 
. 1 = 0 
P=0 
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DO WHILE { I . LE . IQMK) 
P=P+A( I+K) *LN(Q-I ) 
1=1 + 1 
END DO 
P = P + C 
C=P/IMQ 

LNPl (K) =P-C* IMQ 
K=K-1 
END DO 
C 

1 = 0 

X=0 .DO 
C 

DO WHILE { I .LT.Q) 

1 = 1 + 1 

X=X+LNP1 ( I ) *2 . ** ( -MQ*I ) 
LN( I )=LNP1( I ) 

END DO 
C 

RAND AN =X 
C 

RETURN 

C 

END 



SUBROUTINE FINDMM ( LEG , IMP , NCOL , NROW , FMI N , FMAX ) 



IMPLICIT INTEGER*2 (l-N) 

REAL *4 X( 128 ) , FMIN( 128 ) , FMAX ( 128 ) 

CHARACTER*45 DEVD I R , NAME * 1 0 
DATA DEVDIR,NAME/'DUAO ’/ 

DATA LOGOLD/2/ 

DO J=1 ,NCOL 

FMIN( J ) =+l . E+38 
FMAX( J ) =-l . E+38 
END DO 

WRITE( IMP, 100 ) 

NBYTES=NCOL*4 

CALL FICH (' 069 LOGOLD, 1 , DEVD I R, NAME, NROW, NBYTES , 1 , 
1 ' DIRECT’ , LEG, IMP) 

DO 1=1, NROW 

READ( LOGOLD’ I ) ( X ( K ) , K= 1 , NCOL ) 

DO J=l,NCOL 

IF (FMIN( J) ,GT.X(J) ) THEN 
FMIN( J) =X( J) 

END IF 

I F ( FMAX ( J ) , LT . X ( J ) ) THEN 
FMAX( J) =X( J) 
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END IF 
END DO 
END DO 

CLOSE ( LOGOLD) 

RETURN 

100 FORMAT (/'$', 3X Ass ign the ''OLD'' direct access file : 
1 '/4X,37( '-' ) ) 

END 



Q*** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c*** 



SUBROUTINE CONV ( NCOL , NROW , COLMNE , NC , INDEX) 

■k'ki^'k-kit-k-k-k-k'k'k'k'k'k'k-k'k'k'k-k'k-k'k'k'k'k'k-k'k'k'k-k'k'k-k-k-k-k'k'k-k'k-k'k-k'k'k'k'k-kif'k'k'k-k-k-k 



This subroutine analyzes the expression inserted 
keyboard in the form of string in the following ki 
elements : 

Functions (eg. SQRT[7]) 

Row assignment (eg. [8]) 

Reals or integers 
Delimiters ( eg ."(",")" ) 

Operators : 

The result of this analysis 
consisted of the above kind 
characters . 



by the 
nds of 



f I 
f 

is an infix expression 
of elements, but in 



ARGUMENTS 

NCOL 
NROW 
COLMNE 

NC 

INDEX 



: The number of columns. 

The number of rows. 

Array storing the column mnemonic names and the 
assigned transformations. 

The index of the array COLMNE. 

Pointer marking the index of COLMNE on which 
the transformations start. 






IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 CN,PP 

REAL*4 X(128) ,ARG,VAL,R,RES 

CHARACTER*24 COLMNE ( 1 28 ), STRI NG 

CHARACTER* 1 S YMB (24), INF (18, 14), POST (18, 14), F (7), NUM ( 

1 CONS ( 14 ) , 3R 

CHARACTER* 5 FUN 

CHARACTER* 4 5 NAME* 1 0 , DEVD I R 

LOGICAL*! MARK, TEST, NEG, CHECK 

EQU I VALENCE (SYMB( 1 ) , STRING) 

DATA DEVDIR,NAME/'DUAO 
DATA LOGOLD, LOGNEW/2 , 3/ 
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(_x> 



non n n n on no 



N3YTES=(NC0L-(NC- INDEX) ) *4 

C Open the file which contains the data to be t ransf orT.ed . 

WRITE (6,300) 

CALL FICH{ '069' ,LOGOLD, 1 , DEVD IR , N.\MS , NROW , MBYTES , 1 , 

1 'DIRECT ',5,6) 

NBYTES=NCOL*4 

Open a new file with the same name, on which the 
transformed data will be stored. 

WRITE (6,400) 

CALL FICH( '069' , LOGNEW , 1 , DEVD I R , N;^>1E , NROW , MBYTES , C , 

1 'DIRECT' ,5,6) 

For each row of the data matrix, execute the assigned 
transformat ion, 

DO JK=l,NROW 

Read the entire row of data. 

READ( LOGOLD' JK) (X(K) , X= 1 , MCOL- ( MC- I NDEX ) ) 

Calculate the number of transformations (IND). 



IMD=MC-IMDEX 



For each transformation. 



DO IK=1 ,NC-IMDEX 

Store the expression representing the transformation 
in the variable STRING. In following this string will be 
analyzed. 

STRING=COLMME( I K+ INDEX) 

C Initialize the pointers. 



J = 1 

N=1 

L=1 

M=1 

IP=1 

BR= ' ' 



C Initialize the flags. 

TEST=. FALSE. 

MARK=. FALSE. 
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C 



CHECK= . FALSE . 

NEG= . FALSE. 

For each character of the string, 

DO 1=1,24 

If the character is a letter, store it in zhe one 
character array F and signal the encountering of a 
function in the transformation by seting the flag 
TEST to true. 

IF (SYMB( I ) .GE. ’ A' . AND.SYMB( I ) . LE . ’ 2' ) THEN 
F(N)=SYMB( I ) 

TEST= .TRUE. 

N=N+1 



If the character is number or " . , then 

ELSE IF ((SYMB(I) .GE. 'O' .AND.SYMB(I) .LE. '9' ) .OR. 
1 SYMB( I ) .EQ. ' . ' ) THEN 

If the bracket is closed or no bracket has still 
been encountered, the number is a constant used 
by the transformation. Store the number in the 
array CONS and mark the encountering of a 
constant by seting the flag MARK to true. 

IF (BR.EQ. ' ] ■ .OR.BR. EQ. ' ') THEN 

CONS(L)=SYMB( I ) 

MARK= . TRUE . 

L=L + 1 



Else if the bracket is opened, then 

ELSE IF (BR.EQ.'[') THEN 

if function has been encountered, the number 
is the representation of the column number 
the value of wi ch is going to be used as 
argument of the function. 

I F ( TEST . EQ . . TRUE . ) THEN 
F(N) =SYMB( I ) 

N=N+1 



Else, the number is the representation of 
column but the coresponding value is 
going to be used as a constant. 

ELSE 

NUM(M) =SYMB( I ) 
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C 



set 



to variable 3R 



CKECK= 

M=M-1 



END IF 
END IF 



I RUE . 



If the character is 



1 1 



ELSE IF (SYM3( I ) , EQ. ’ [ ' ) THEN 
3R=SYMB( I ) 



if function has been encounterd, store the 
in the same array with the function (F) 

I F ( TEST . SQ , , TRUE . ) THEN 
F(N) =SYMB( I ) 

N=N+1 



else store it in the same array with the 
numbers representing columns. 

ELSE 

NUM(M) =SYM3( I ) 

M=M+1 
END IF 

Else if the symbol is " ] then set it to variable 
BR and, 



ELSE IF (SYMB( I ) .EQ. ' ] ' ) THEN 
BR=SYMB( I ) 



if function has been encountered, store it in 
the same array 

I F ( TEST . EQ . . TRUE . ) THEN 
F(N) =SYMB( I ) 



else store it with the muraber representing 
column . 



ELSE 

NUM(M) =SYMB( I ) 

END IF 

Else if the symbol is then 

ELSE IF (SYMB( I ) . EQ. ’ - ' ) THEN 

if the previous character was " ( , means that 
follows negative number and mark it by seting the 
flag NEC to true. 
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I F ( S YM3 ( I - 1 ) . SQ . ' ( ' ) THEN 
NEG= .TRUE. 

Else the character represe.nts the sycibol 

of the subtraction. 

ELSE 

If function has been encountered, 

IF (TEST. EQ. .TRUE. ) THEN 

If the NEG flag is true the is placed 

at the begining of the function storing in 
the generated infix expression. 

I F ( NEG . EQ . . TRUE . ) THEN 
INF( IP, 1 ) = ' - ' 

and in followng the function name stored 
in the array F is also placed in the 
infix expression. 

DO J=1,N 

INF( IP, J+1 ) =F( J) 

END DO 

Since the is used to negate the 

function the flag is reset to F.A.LSE, 

NEG= . FALSE. 

and the pointer of the generated infix 
expression IP, is increased. 

IP=IP+1 

The "(" is also placed as element of the 
infix, 

INF( IP, 1 ) =SYMB( I ) 

IP=IP+1 

and the flag TEST is reset to FALSE to 
indicate that no function is active. 

TEST=. FALSE. 

The index of array F is set to one, 
ready to accept the next faction name. 



N=1 
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Else ("he function is not negative) 
repeat the same procces without negating 
the function. 

ELSE 

DO J=1 ,N 

INF ( :?, J)=E( J) 

END DO 
I?=I?+1 

INF( I?, 1 ) =SYMB( I ) 

IP= IP+1 
TEST= . FALSE. 

N=1 
END IF 

Else if constant has been encountered, 

ELSE IF (MARK. EQ. .TRUE. ) THEN 

if the NEC flag is set, place the constant 
stored in array CONS in the generated 
infix expression but negeting it first. 

IF (NEC. EQ. .TRUE. ) THEN 
INF( IP,1)='-’ 

DO J=1,L-1 

INF( IP,J-1)=C0NS(J) 

END DO 
NEG= . FALSE . 

IP=IP+1 

INF( IP, 1)=SYMB( I ) 

IP=IP+1 
MARK= . FALSE. 

L=1 



Otherwise do the same without negation. 

ELSE 

DO J=1,L-1 

INF( IP, J ) =CONS( J) 

END DO 
IP=IP+1 

INF( IP, 1) =SYMB( I ) 

IP= IP+1 
MARK=, FALSE. 

L=1 
END IF 

Repeat the same process if number representing 
column has been encountered. 
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ELSE IF ( CHECK. EQ..T 
IF ( NEC. EQ. .TRUE. 



INF( IP, 1 ) = ' - ' 
DO J=1,M 

INF( IP, J*l) 



RUE . ) THEN 
) THEN 

=NUM( J) 



END DO 



NEG= . FALSE. 

IP=IP+1 

INF ( IP, 1) =SYMB( I ) 

IP=IP+1 

CHECK=. FALSE. 

M=1 

ELSE 

DO J=1,M 

INF( IP, J)=NUM(J) 
END DO 
IP=IP+1 

INF( IP, 1 ) =SYMB( I ) 

IP=IP+1 

CHECK=. FALSE. 

M=i 
END IF 
END IF 
END IF 



C 

C 

c 

c 

c 



If the character is an operator or end of string is 
encountered, the current active funct ion , constant or 
column value must be placed in the generated infix 
expression. The same process used above for the 
is going to be used herein also. 



ELSE IF ( (SYMB( I ) .EQ. ’ ( ' .OR.SYMB( I ) .EQ. ' 



SYMB{ I ) . EQ. ’ + ' 


.OR. 


SYMB ( I ) . EQ . ’ * ’ 


.OR. SYMB ( I ) .EQ. ' / 


SYMB( I ) . EQ. ’ ' 


.OR. SYMB ( I ) .EQ. ' 


SYMB ( I - 1 ) . NE . ' 


' ) THEN 



.OR. 

' .OR. 

' ) . AND . 



I F ( TEST . EQ . . TRUE . ) THEN 
I F ( NEC . EQ . . TRUE . ) THEN 
INF( IP, 1)=' 

DO J=1,N 

INF( IP,J+1)=F(J) 
END DO 
NEG= . FALSE . 

IP=IP+1 

INF ( IP, 1) =SYMB( I ) 

IP=IP+1 

TEST= . FALSE. 

N=1 
. ELSE 

DO J=1,N 

INF(IP,J)=F(J) 
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END DO 
I ?= I ? * 1 

INF( IP, 1) =SYM3( I ) 

I?=I?+1 
TEST= . FALSE . 

N=1 
END IF 

ELSE IF (MARK. EQ. .TRUE. ) THEN 
I F ( NEC .EQ. . TRUE . ) THEN 
I NF ( I ? , 1 ) = ' - ’ 

DO J=1,L-1 

INF( IP,J+l)=CONS( J) 

END DO 
NEG= . FALSE. 

IP=IP+1 

INF( IP, 1)=SYM3( I ) 

IP=IP+1 
MARK=. FALSE. 

L=1 

ELSE 

DO J=1,L-1 

INF( IP, J)=CONS( J) 

END DO 
IP=IP+1 

INF( IP, 1)=SYM3( I ) 

IP=IP+1 
MARK=. FALSE. 

L = 1 
END IF 

ELSE IF ( CHECK. EQ. .TRUE. ) THEN 
IF (NEC. EQ. .TRUE. ) THEN 
INF( IP, 1 ) = ’ - ' 

DO J=1,M 

INF( IP, J + 1 )=NLT^( J) 

END DO 
NEG=. FALSE. 

IP=IP+1 

INF( IP, 1) =SYM3( I ) 

IP=IP+1 
CHECK=. FALSE. 

M=1 

ELSE 

DO J=1,M 

INF( IP, J)=NUM(J) 

END DO 
IP=IP+1 

INF ( IP, 1)=SYM3( I ) 

IP=IP+1 
CHECK=. FALSE. 

M=1 
END IF 

ELSE IF ( TEST. EQ. .FALSE. .AND. MARK. EQ. .FALS 



181 



nn nnnn nn nn non 



2 



. AND . CHECK . EQ . . EAISE . l THEN 
IN?( IP, 1)=SYM3( I ) 

IP=I?+1 
END I? 

END IF 
END DO 
IP=IP-2 



As soon an infix expression is generated, the process 
for its evaluation is continued, by calling the 
appropriate subroutines. 

CALL PFIX( INF,POST, IP,PP) 

CALL EVAL ( LOGOLD , POST , RES , PP , INDEX , NC , JK , NCOL , 

1 X, FUN, ARG, lERR) 

The result is placed in one position after the last 
column increasing the numbers of column by one. 

X(NCOL-IND+l ) =RES 

One transformation has been evaluated and their number 
is decreased. 

IND=IND-1 
END DO 

If the flag lERR used to signal that invalid argumenc 
for a function has been encountered (eg. Square root o 
negative number) is not set then the new row (contanig 
the transformed columns) is written to the new file. 

IF ( lERR.NE. 1 . AND. lERR.NE. 2) THEN 
WRITE (LOGNEW'JK) (X(K) ,K=l,NCOL) 

Else a message is displayed and the program returns for 
new assignement. 

ELSE IF (lERR.EQ.l) THEN 
WRITE(6,100) FUN, ARG 
CLOSE ( LOGNEW) 

RETURN 

ELSE 

WRITE(6, 200) 

CLOSE (LOGNEW) 

RETURN 
END IF 
END DO 

CLOSE ( LOGNEW) 

RETURN 

100 FORMAT ( //4X, ' INVALID FUNCTION ARGUMENT : ',A5,'(', 

1 F14 . 6, ' ) ' ) 
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200 F0PaMAT(//4X, ’ INVALID DIVISION 3Y 0 !!') 

300 FORMAT (//4X, 'Assign the ''OLD'' direct access file :' 

1 /4X ,37('-')) 

400 FORMAT ( //4X ,' Ass ign the ''NEW' direct access file :' 

1 /4X ,37('-')) 

END 



SUBROUT I NE COM? ( FUN , ARC , A? , I ERR ) 

Q^-:*:*****i:ir>r*-*r:ir7kr:*r**':*r*i:*****:*ri:*i:Tkr***:ir*’**********:ir:i:7ic-*:*rx**xxx5k: 

C 

C This subroutine is used to compute the ’/alues of 

C functions that may be included in a transformation u 

C the FORTRAxN 77 build-in functions. 

C 

C 

C ARGUMENTS : 

C 

C FUN 

C ARG 

C A? 

C I ERR 

C 

c 

-k i( -k -k -k ii: ~k -k -k -k 'k ir -k it: 'k 'k 'k -k if -k -k if 'k -k 'k -k -k Tk: -k -k -k 'k -k 'k y: -k -k -k :k 

IMPLICIT INTEGER*2 (l-P) 

CHARACTER'S FUN 
REAL*4 ARG,AP,AX 

IERR=0 

IF (FUN.EQ.' SQRT') THEN 

IF (ARG.GE.O) THEN 
AP=SQRT( ARG) 

ELSE 

IERR=1 
END IF 

Use the build in intrincic functions of FORTRAN 77 
the computation of the several assigned by 
expression functions. 

ELSE IF (FUN.EQ.' LOG') THEN 
IF (ARG.LE.O) THEN 
AP=ALOG( ARG) 

ELSE 

IERR=1 
END IF 

ELSE IF (FUN.EQ.' LOGC ' ) THEN 
IF (ARG.LE.O) THEN 
AP=LOG10 ( ARG) 

ELSE 



Name of the function. 

Argument of the function. 

Result of the function. 

Flag indicating that an invalid argument 
ass igned . 



:*r X X 
k k k 

z hs 
inq 



i s 

k k k 



for 

the 
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EX? ' ) THEN 



C 

C 



Q* * -k 
★ ★ ★ 



IERR=1 
END IF 



ELSE IF (FUN.EQ. 
AP=EXP( ARG) 



ELSE IF (FUN.EQ.' 
AP=SIN(ARG) 


SIN' ) 


THEN 


ELSE IF (FUN.EQ. ' 
AP=COS(ARG) 


COS' ) 


THEN 


ELSE IF ( FUN.EQ. ' 
AP=TAN(ARG) 


TAN' ) 


THEN 


ELSE IF (FUN.EQ. ' 
AP=ASIN( ARG) 


AS I N ' ) 


THEN 


ELSE IF ( FUN.EQ. ' 
AP=ACOS (ARG) 


ACOS ' ) 


THEN 


ELSE IF (FUN.EQ. ' 
AP=ATAN( ARG) 


AT AN ' ) 


THEN 


ELSE IF ( FUN.EQ. ' 
AP=ABS(ARG) 


ABS ' ) 


THEN 


ELSE IF (FUN.EQ. ' 
AP=SINH( ARG) 


SINK') 


THEN 


ELSE IF (FUN.EQ. ' 
AP=COSH(ARG) 


COSH' ) 


THEN 


ELSE IF ( FUN.EQ. ' 
AP=TANH(ARG) 


TANH' ) 


THEN 



Compute the Arc Hyperbolic Sin function not included in 
the build in functions of the language. 

ELSE IF (FUN.EQ. 'ASINH' ) THEN 
ARG=ABS ( ARG) 

AP=ALOG(ARG+SQRT( ARG*ARG+1) ) 

IF (AP.LT.O) THEN 
AP=-AP 
END IF 
END I F 

RETURN 

END 

SUBROUTINE PF I X ( I NF , POST , I P , PP ) 

This subroutine transforms the infix expression produced 
by the subroutine CONVERT to postfix notation using the 
push-down stack method. 

IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 PP 

CHARACTER*! POST(18,14) , INF (18, 14) , STACK (30) 

Initialize the stack pointer K and the pointer PP of the 
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array holding the created poscfix expression. 



K=0 
PP = 0 

For each element of the infix expression, 

DO 1 = 1, IP 

If the first character of the ele.ment is letter or ” 
place it on the generated postfix expression. 

IF ( ( INF( I , 1) .GE. ' .AND. INF( I , 1) .LE. ' Z' ) . OR . I NF ( I , 1 ) 
1 EQ. ' [ ' ) THEN 

PP=PP+1 
DO J = 1 , 14 

POST(PP, J) =INF( I , J) 

END DO 

Else if the first character is a number or then 

place it on the generated postfix expresion. 

ELSE IF ( ( INF( I , 1 ) .GE. ' 0 ' . AND. INF( I , 1 ) .LE. ' 9 ’ ) .OR. 

1 I NF ( I , 1 ) . EQ . ' . ' ) THEN 

PP=PP+1 
DO J = 1 , 14 

POST(PP, J) =INF{ I , J) 

END DO 

Else if the element is which has the lowest 

priority of operators, 

ELSE IF ( INF( I , 1) .EQ. ' + ' ) THEN 

if the stack is not empty and the topmost element is not 
pop the stack and place the element on the postfix 
expression, push the next element of the infix 
expression into the stack. 

IF ( K . NE . 0 . AND . STACK ( K ) . NE . ’ ( ’ ) THEN 
PP=PP+1 

POST ( PP , 1 ) =STACK ( K ) 

K=K-1 
END IF 
K=K+1 

STACK ( K) =INF( 1,1) 

C Else if the element is 

ELSE IF ( INF( I , 1) .EQ, ' ) THEN 

C if the next character of the same element is a number or 
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'' L " , which means that: the is the symbol of the 

subtraction, place the element in the postfix expression. 

IF ( ( INF( I ,2) .GS. ' 0 ' .AND. I NF ( I , 2 ) . LS . ' 9 ' ) . C.R . 

1 INF( I ,2) .EQ. ' [ ' ) THEN 

PP=PP+1 
DO J=1 , 14 

POST(PP, J)=INF( I , J) 

END DO 

Else the second ele.ment is a letter, also place it on 
the postfix. 

ELSE IF ( INF( I , 2 ) .GE. ' A' . AND. INF( I , 2 ) . LE. ' Z' ) THEN 
PP=PP+1 
DO J=1 , 14 

POST(PP, J) =INF( I , J) 

END DO 

Else, if the stack is not e.mpty and the topmost elem.ent 
of the stack is not "(", place the topmost element of 
the stack on the postfix and push into the stack the 
next element. 

ELSE 

IF ( K . NE . 0 . AND . STACK ( K ) . NE . ' ( ' ) THEN 
PP=PP+1 

POST( PP, 1 ) =STACK(K) 

K=K-1 
END IF 
K = K+1 

STACK ( K) = INF ( 1,1) 

END IF 

If the next element is or 

ELSE IF ( INF( I , 1) .EQ. ' * : .OR. INF( I , 1) .EQ. ' /' ) THEN 

if the topmost element of the stack is an operator with 
lower priority ("-I-"/'-") or "(", push it into the stack, 

I F ( STACK ( K ) . EQ . ' + ' . OR . STACK ( K ) . EQ . ' - ' . OR . STACK ( K ) . 
1 EQ. ' ( ' ) THEN 

K=K+1 

STACK(K) =INF( I ,1) 

else until the stack is empty or the " ( delimiter is 
encountered, pop the stack and place the operators on 
the postfix expression. 

ELSE 

DO WH I LE ( K . NE . 0 . AND . STACK ( K ) . NE . ' ( ' ) 
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?p=?p- 1 

POSTfPP, 1 ) =STACK(K) 
K = K-1 
END DO 
K=K+1 

STACK(K) =INF( 1,1) 

END IF 



If the next element is of hihger priority push it 

into the stack. 

ELSE IF ( INF( I , 1) , EQ. ' ) THEN 
K=K+1 

STACK(K)=INF( 1,1) 

If it is also push it into the stack. 

ELSE IF ( INF( I , 1) .EQ. ' ( ' ) THEN 
K=K+1 

STACK(K)=INF( 1,1) 

But if it is a ")", pop the stack and place -he 
operators on the postfix until the " ( is encountered. 

ELSE IF ( INF( I , 1) .EQ. ' ) ' ) THEN 
DO WHILE (STACK(K) . NE . ' ( ' ) 

PP=PP+1 

POST(PP, 1)=STACK(K) 

K=K-1 
END DO 
K=K-1 
END IF 
END DO 

At the end if the stack is not empty, pop it until is 
empty . 

IF (K.NE.O) THEN ' 

DO WHILE (K.NE.O) 

PP=PP+1 

POST ( PP , 1 ) =STACK ( K ) 

K=K-1 
END DO 
END IF 
RETURN 
END 



ic -k -k -k ic ic ic ~k -k -k ic 'k if ic iK i: iK -k ic -k -k -k -k ic -k -k ~k ic ic -k -k -k -k ~k k -k ~k ic -k 

SUBROUTINE EVAL ( LOGOLD , POST , RES , PP, I NDEX , NC , JK , NCOL , 
i • X, FUN, ARG, lERR) 

k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 
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c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



This subroutine is used to evaluate a postfix expression 
using the push-down stack technique . 

ARGUMENTS : 



LOGOLD : 



POST : 

RES : 

PP : 

INDEX : 



NC 

JK 

NCOL 

X 

FUN 

ARG 
I ERR 



The direct access file containing the data 
before any transformation. The same file is 
used to store the data after transformations 
have been performed to them. 

Two dimention array storing the post 

expres i son . 

The result of the expression. 

The number of elements in the post 

express ion . 

Pointer marking the end of mnemonic names in 
the array (COLMNE) that stores column mnemonics 
and transformations. 

The index of the array COLMNE. 

The number of columns. 

Array storing the name of the functions 
contained in an expression. 

The argument of the function. 

Flag indicating invalid function arguments or 
division by zero. 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k-k'k'k'k'k'kic'k'k-k'k'k'k'k'k-kic'k-kicic-k'k-kii: 



IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 NC , PP , I NDEX , POI NT , CN 

REAL* 4 STACK (24) ,X(128) , OPl , 0P2 , OP , RES , R , ARG , AP 
CHARACTER*! POST(18,14) ,VAL(14) ,DUM(14) ,FUN(5) ,C0L(3) , 
1 CONS( 14 ), funks ) 

CHARACTER* 5 FUNS 
EQUIVALENCE ( FUNS , FUNl ( 1 ) ) 

IERR=0 

L=1 

C For each element of the postfix expression. 

DO I=1,PP 

C If the element is a letter, 

IF (POST( I , 1) .GE. ' A’ .AND.POST{ I , 1) .LE. ' Z' ) THEN 
J=1 



Store until the "[" is encountered the characters of the 
function name in FUN. 



188 






nnn^^ nn n n n 



DO WH I LE ( POST ( I , J ) . NE . ' [ ' ) 
FUN(J)=?OST( I , J) 

J=J + 1 
END DO 
JA=J-1 
IJ = 0 

DO WHILE ( JA. LT. 5) 

IJ=I J+1 
JA=JA+1 
FUN1(IJ)=' ' 

END DO 
JA=0 

DO WHILE( IJ . LT. 5 ) 

IJ=IJ+1 

JA=JA+1 

FUNl ( IJ) =FUN( JA) 

END DO 

J=J+1 

KA=1 



Store until "]" is encountered the numbers 
contained between the brackets and representing 
column number in array COL. 

DO WH I LE ( POST ( I , J ) . NE . ' ] ' ) 

COL(KA) =POST( I , J) 

KA=KA+1 
J=J + 1 
END DO 

Decode the characters of COL to obtain the number 
of column. 

DECODE( 3 , 100 ,COL) CN 
FORMAT ( KKA-1>) 

Using the uncoded column number CN assign the value 
of the corresponding column as argument to the 
f unct ion . 

ARG=X(CN) 

C Compute the value of the function. 

CALL COMP ( FUNS, ARC, AP, I ERR) 

C Push the result into the stack. 

STACK (L)=AP 
L = L + 1 
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C 



Else if the current element of the poscfix is , 

ELSE IF (POST( I , 1) .EQ. ' [ ’ ) THEN 
J = 2 
KB = 1 



Place the numbers (characters) contained between 
the brackets in array COL. 

DO WH I LE ( POST ( I , J ) . NE , ' ] ’ ) 

COL(KB)=POST( I , J) 

J=J+1 
KB=KB+1 
END DO 

Decode the content of COL, obtain che number of 
colun CN and push into the stack the corresponding 
column value. 

DECODE(3,200,COL) CN 
FORMAT( KKB-1>) 

STACK( L) =X(CN) 

L=L+1 



Else if the current element of the post is a number 



ELSE IF ( (POST( I , 1) .GE. ’ 0 ' . AND.POST( I , 1) .LE . ' 9 ’ ) . 
1 OR.POST( I , 1) .EQ. ’ . ' ) THEN 

J = 1 
KC=1 



store the characters of this element in the array 
CONS . 

DO WHI LE ( ( POST ( I , J ) . GE . ' 0 ' . AND . POST ( I , J ) . LE . 

1 ' 9' ) .OR.POST( I , J) .EQ. ' . ' ) 

CONS (KC)= POST ( I , J) 

J=J+1 
KC=KC+1 
END DO 
POINT=0 

C Find the position of 

DO IK=1,KC-1 

IF (CONS( IK) . EQ. ’ . ’ ) THEN 
POINT=IK 
END IF 
END DO 

C If no point exists then add a point 
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I? (POINT.EQ.O) THEN 
CONS(KC)= ’ . ’ 

C decode the number and push it into the stack 

DECODE (KC, 5 00, CONS) OP 
500 FOEWAT( F<KC-i> . 0 ) 

STACK( L) =OP 
L = L+1 

else decode the representation of a real and push 
it into the stack. 

ELSE 

DECODE ( KC-1 , 300 , CONS) OP 
FORMAT( F<KC-2>.<KC-l-POINT>) 

STACK (L)=OP 
L = L+1 
END IF 

If the element is then examine the second 

character to determine if represents subtraction or a 
negative value is present. In the first case treat 
the as the other operators while in the second 

negate the following the sign value. 

ELSE IF (P0ST(I,1) .EQ. '-' ) THEN 

IF (POST( I , 2 ) .GE. ' 0 ' . AND.POST( I , 2 ) .LS. ' 9 ’ ) THEN 
J = 2 
KD=1 

DO WH I LE ( ( POST ( I , J ) . GE . ' 0 ' . AND . POST ( I , J ) . LE . 

' 9 ' ) .OR. POST ( I , J) .EQ. ' . ' ) 

CONS(KD)=POST( I , J) 

J=J + 1 
KD=KD+1 
END DO 
POINT=0 
DO IK=2,KD-1 

IF (CONS( IK) .EQ. ' . ' ) THEN 
POINT=IK 
END IF 
END DO 

IF (POINT.EQ.O) THEN 
CONS(KC)= ' . ’ 

DECODE (KD, 600 , CONS) OP 
FOFlMAT( F<KD-1> . 0 ) 

STACK ( L) =OP 
L = L+1 
ELSE 

DECODE(KD-l , 400 , CONS) OP 
FORMAT( F<KD-2>. <KD-l-POINT>) 



600 



400 
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800 



1 



700 



STACK ( L) =-OP 
L = L+1 
END IF 

ELSE IF (PCST( I , 2) .EQ. ’ [ ' ) THEN 
J = 3 
KE=1 

DO WH I LE ( POST ( I , J ) , NE . ' ] ' ) 

COL(KE) =POST( I , J) 

J=J + 1 
KE=KE+1 
END DO 

DECODE( 3 , 800 ,COL) CN 
FORMAT ( KKE-1>) 

STACK( L) =-X(CN) 

L=L+1 

ELSE IF ( POST( I , 2 ) .GE. ' A' . AND. POST( I , 2 ) . L 
THEN 

J = 2 

DO WH I LE ( POST ( I , J ) . NE . ' [ ' ) 

FUN( J) =POST( I , J) 

J=J + 1 
END DO 
JA=J-1 
IJ = 0 

DO WHILE ( JA. LT. 5 ) 

IJ=IJ+1 
JA=JA+1 
FUN1(IJ)=' ' 

END DO 
JA=0 

DO WHILE ( IJ.LT.5) 

IJ=IJ+1 

JA=JA+1 

FUNK IJ)=FUN( JA) 

END DO 
J=J + 1 
KF = 1 

DO WH I LE ( POST ( I , J ) • NE . ' ] ' ) 

COL(KF) =POST( I , J) 

KF=KF+1 
J=J + 1 
END DO 

DECODE( 3 , 700 ,COL) CN 
FORMAT ( KKF-1>) 

ARG=X(CN) 

CALL COMP( FUNS, ARC, AP KERR) 

STACK(L) =-AP 
L=L + 1 

ELSE 

L=L-1 

OP2=STACK(L) 

L = L-1 
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0P1=STACK( L) 

R=0?l-0?2 
STACK (L)=R 
L = L+1 
END I F 

If the element is an operator, pop the tvo topmost 
elements of the stack, apply the operator to them 
and push the result into the stack. 

ELSE IF (POST( I , 1) .EQ. ' + ' .OR.POST( I , 1 ) . EQ. ’ * ' .OR. 
1 POST( I , 1) .EQ. ' /’ .OR.POSK I , 1) . EQ. ' ^ ) THE.M 

L = L-1 

OP 2= STACK (L) 

L = L-1 

OPl=STACK(L) 

IF (POST( I , 1 ) .EQ. ’ + ' ) THEN 
R=OPl+OP2 

ELSE IF (POSTd ,1) .EQ. ' *' ) THEN 
R=OPl*OP2 

ELSE IF (POST( I , 1) .EQ. ' /' ) THEN 
IF (OP2.NE.O) THEN 
R=OPl/OP2 
ELSE 

IERR=2 
RETURN 
END IF 

ELSE IF (POST( I , 1) .EQ. ' ) THEN 
R=OPl**OP2 
END IF 
STACK ( L) =R 
L=L+1 
END IF 
END DO 
L=L-1 

RES=STACK( L) 
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RETURN 

END 



(|^************************-*r*********-*:*'*:********>r*-ir-*r*****x*-Ar-*r + -ttx 

SUBROUTINE DISDAT(LEC, IMP , NCOL , NROW , I OPEN, I CLOSE) 

(2***************************X**************x****XX********X*** 

C 

C This subroutine is used for the display of all or any 

C user assigned part of the data file. 

C 

C ARGUMENTS : 

C 

C LEG, IMP 
C NCOL 
C NROW 
C lOPEN 
C 

C ICLOSE 

c 

Q******************************************************X**X*X* 



: Input/Output logical numbers for terminal. 

: Number of columns. 

: Number of rows. 

: If equal to 1, assign and open the di rect-access 

data file and output display. 

: If equal to 1, close the direct-access data file. 



IMPLICIT INTEGER*2 (l-N) 

BYTE STRING(72) ,FMT1(72) ,FMT2(.72) 
CHARACTER* 7 MODCOL , MODROW 
CHARACTER*72 FMTC1,FMTC2 
CHARACTER* 4 5 DEVD I R , NAME* 10 



REAL*4 X(128) 

DIMENSION NOCOL(256) ,NOROW(2048) 



EQUIVALENCE ( FMTCl , FMTl (!)),( FMTC2 , FMT2 ( 1 ) ) 

DATA LOGOLD, IMP2/2 , 7/DEVDIR, NAME/ ' DUAO '/ 

DATA MODCOL/ ' columns ' /MODROW/ ' rows ' / 

DATA FMTC2/'(I6, F14. 6)'/ 

C Declare LOGOLD unit data file. 



IF (lOPEN.EQ.l) THEN 
NBYTES=NCOL*4 
WRITE( IMP, 100 ) 

CALL FICH( ' 069 ' , LOGOLD, 1 , DEVD I R , NAME , NROW , MBYTES , 1 , 
1 'DIRECT' ,LEC, IMP) 

C Display output unit attribute. 

CALL ENSORT(LEC, IMP, IMP2) 

END IF 
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c 

c 



c 

c 

c 



c 

100 

200 

c* * * 
* * * 



Display condicions for columns. 

CALL ANADI S ( LSC , IMP , NCOL* 2 , NCOL , NOCOL , N3C0L , MODCGL ) 
IFlNBCOL.EQ.O) RETURN 

Display conditions for rows. 

CALL ANAD I S ( LEC , IMP , NROW , xNROW , NORCW , N3RCW , .MODRCW ) 
IF(NBROW. EQ. 0 ) RETURN 



NOUT=0 



Change FORMATS for output. 

CALL FOFW(LEC, IMP , FMTC 1 , FMT2 , N , II) 

DO WHILE ( NOUT . LT . NBCOL ) 

IBEG=NOUT+l 
IExMD=I3EG + N-l 
IF( lEND.GT. NBCOL) THEN 
IEND=NBCOL 
END IF 

For columns. 

M=IExND-IBEG+l 
ENCODE(2,200,FMT1(07) ) M 
For underlining. 

M=5+M*I 1 

ENCODE(2,200,FMT1{25) ) M 

WRITE( IMP2,FMT1) (NOCOL(J) ,J=IBEG, lEND) 

1 = 1 

DO WHILE( I .LE.NBROW) 

READ ( LOGOLD’ NOROW ( I ) ) (X( J) , J=1 ,NCOL) 

WRITE( IMP2,FMT2) NOROW( I) , (X(NOCOL(J) ) ,J=I3EG, lEND) 
1 = 1 + 1 
END DO 
NOUT=NOUT+N 
END DO 

IF ( ICLOSE.EQ. 1) CLOSE (LOGOLD) 

RETURN 

Formats . 

FORMAT ( //4X Name of the e.xisting data file :’) 

FORMAT (12) 

END 



SUBROUTINE FORM(LEC, IMP , FMTCl , FMT2 , N , II) 
*******************+************************************* 
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C Permits the user -o determine nhe forma" of zhe 

Cthat will be displayed. 

C 

IMPLICIT INTEGER*2 (I-N) 

BYTE FMT(72) ,FMT2(72) , STRING (72) 

CHARACTER* 7 2 FMTC,FMTC1 

EQUIVALENCE ( FMTC , FMT ( 1 ) ) 

DATA FMTC /'{//IX, ( X,I3, X ) / IX , 7 5 ( \ -\ ) / ) ' / 

Because compiler does no admit quotes inside the cha 
they are changed by '\' and substituted after. 

FMT(28)=039 
FMT( 30 )=039 

WRITE( IMP, 100 ) 

100 FORMAT ( /4X The normal format is ; nnnnnnn . nnnnn 

1 //'$' 3X, 

2'To modify it assign your format (ex. nnn.nn) <CR> 

C Read the user assigned FORMAT. 

READ(LEC,200) STRING 
200 F0RMAT(72A1) 

IPOINT=0 
1 = 1 

DO WHILE(STRING( I ) .NE. ' ') 

IF (STRING( I ) .EQ. ’ . ' ) IPOINT=I 
1 = 1 + 1 

END DO 

C Data format. 

IF ( I . EQ . 1 ) THEN 

C For FORMAT (5F14. 6) for Data. 

11 = 14 
IPOINT=8 
ELSE 

C For general format for Data. 

IF ( IPOINT . EQ. 0 ) THEN 
IPOINT=I 
1 1=1 
ELSE 

11=1-1 
END IF 
END IF 

ENCODE(2,300,FMT2(08) ) II 
300 F0RMAT(I2) 
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N=70/I1 

ENCODE( 2 , 300 , FMT2 ( 05 ) ) N 
FMT2 ( 07) = ’ F ’ 

FMT2 ( 10 ) = ’ . ’ 

FMT2 ( 13) = ’ ) ' 

I=I1-IP0INT 

ENCODE( 2 , 300 , FMT2 ( 11 ) ) I 
DO 1=14,72 

FMT2(I)=' ’ 

END DO 



C Format for Title. 

I3=( ri-3)/2 
l4=Il-( 13+3) 

IF ( I 3 . NE . 0 ) THEN 

ENCODE( 2 , 300 , FMT( 10 ) ) I 3 
ELSE 

FMT(12)=’ ’ 

FMT (13)=’ ’ 

END IF 

IF ( I 4 . NE . 0 ) THEN 

ENCODE( 2 , 300 , FMT( 17 ) ) 14 

ELSE 

FMT(16)=’ ’ 

FMT (19)=' ’ 

END IF 

FMTC1=FMTC 

RETURN 

END 



^•^★★★★★:*r:*::*::*:9c**:*::*::*::*r*:*:**:*::*::*:*:*r**:*:9«::*:***:*:i:^9«::ir:*:*:*:*:*r***x*x*****xx**'*r* 

SUBROUTINE SEEDAT(LEC, I MP , NCOL , NROW , I OPEN, I CLOSE) 

i(: :k :k 'k ic i: ~k ~k -k -k -k -k 'k ~k -k -k -k -k -k -k 'k 'k -k -k -k -k -k -k :k -k -k i: ii: -k -k "k -k :k -k -k -k -k -k -k i: -k -k -k -k -k :k 

C 

Input/Output logical numbers for terminal. 

Number of columns. 

Number of rows. 

If equal to 1, assign and open the direct-access 
data file and output display. 

If equal to 1, close the direct-access data file, 



LEG, IMP 
NCOL 
NROW 
lOPEN 



ICLOSE 



C 

c 
c 
c 
c 
c 
c 

(^■k k k k k k k k k k k k k k k k k k k k k 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



IMPLICIT INTEGER*2 (I-N) 



n n 



CHARACTER* 4 5 DEVD I R , NAME* i 0 
CHARACTER*? MODCOL , MODROW 

BYTE STRING (30) 

REAL*4 X( 128) , Y(32) 

DIMENSION NOCOL(256) ,NOROW(2048) 

DATA LOGOLD, IMP2/2,7/DEVDIR, NAME/’ DUAO '/ 

1GOLD/12345.678/IFOU/0/ 

DATA MODCOL/ ' columns ' /MODROW/ ' rows ' / 

C Declare LOGOLD unit data file. 

IF (lOPEN.EQ.l) THEN 
NBYTES=NCOL*4 
WRITE( IMP, 100 ) 

CALL FICH( ' 069 ' , LOGOLD, 1 , DEVD I R , NAME , NROW , NBYTES , i , 
1 'DIRECT' ,LEC, IMP) 

C Display output unit attribute. 

CALL ENSORT( LEC, IMP, IMP2 ) 

END IF 



C Display conditions for columns. 

CALL ANAD IS ( LEC , IMP , NCOL* 2 , NCOL , NOCOL , NBCOL , MODCOL ) 
IF(NBCOL. EQ. 0) RETURN 

C Display conditions for rows. 

CALL ANADIS( LEC, IMP, NROW , NROW , NO ROW , NBROW , MODROW ) 
IF(NBROW, EQ. 0 ) RETURN 

NB=0 

Flags for evental continuation lines if last 
character=' , ' . 

IWRIT=1 
ICONT=l 

C 

DO WHILE ( ICONT. EQ. 1 ) 

C 

ICONT=0 

C Input string 

IF (IWRIT.NE.O) WRITE( IMP, 600 ) 

READ (LEC, 700) STRING 
IWRIT=0 

C Analysis of the string. 

NCAR=80 
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DO WHILE ( STRING (NCAR) , EQ. ' ') 

NCAR=NCAR-1 
END DO 

IF (STRING(NCAR) .EQ. ' , ' ) THEN 
ICONT=l 

STRING ( NCAR) = ’ ’ 

ELSE 

NCAR=NCAR+1 
END IF 
IGOLD=0 
IBEG =1 



1 = 0 

DO WHILE ( I .LT.NCAR) 

1 = 1 + 1 

C 'GOLD' can be any letter. 

IF ( (STRING (I ) .GE. ' A' .AND. STRING ( I ) . LE . ' 2 ' ) . OR . 
1 (STRING( I ) .GE. ' a' .AND.STRING( I ) .LE. ' z' ) ) TH 

IF (IGOLD.EQ.O) THEN 
WRITE( IMP, 200 ) GOLD 
READ (LEG, 300) GOLD2 
IF (GOLD2 .NE . 0 , ) GOLD=GOLD2 
END IF 
NB=NB+1 
Y(NB)=GOLD 



DO WHILE ( STRING ( I ) . NE . ' , ' . AND . I . LT . NCAR . AND 
1 STRIiNG( I ) .NE. ' ' ) 

1 = 1 + 1 
END DO 
ELSE 



IPOINT=0 

DO WHILE ( STR I NG ( I ) . NE . ' , ' . AND . I . LT . NCAR . AND 
1 STRING ( I ) .NE. ' ' ) 

IF(STRING( I ) .EQ. ' . ' ) IPOINT=I 
1 = 1 + 1 

END DO 
IEND=I-1 

C Number : nnn 

IF ( IPOINT.EQ.O) THEN 
STRING ( I ) =' . ' 

IPOINT = I 

I END = I 

END IF 

I 1=IEND-IBEG+1 

I2=I1-IP0INT+IBEG-1 

NB=NB+1 

DECODE ( 1 1 , 400 , STRING( IBEG) ) Y ( NB ) 

END IF 
IBEG=I+1 
END DO 
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c 

END DO 
C 



K = 0 

DO WHILE(K.LT.NBROW) 

K=K + 1 

READ ( LOGOLD ' NOROW ( K ) ) ( X ( L ) , L= 1 , NCOL ) 

DO L=l,NBCOL 
DO N=1,NB 

IF(X(NOCOL(L) ) .EQ. Y(N) ) THEN 

I NDEX=NCOL* ( NOROW ( K ) - 1 ) +NOCOL ( L ) 

IFOU=IFOU+l 

WRITE ( IMP2, 500) IFOU, INDEX,NOCOL(L) ,NOROW(K) , 
1 Y(N) 

END IF 
END DO 
END DO 
END DO 

if' { ICLOSE.EQ. 1) CLOSE (LOGOLD) 

RETURN 



C Formats. 



100 FORMAT ( //4X Name of the existing data file :') 

200 FORMAT (/4X, 'Missing value "gold" number is : ',F9.3// 

1 3X, ' Change or RETURN : ') 

300 FORMAT( F18 . a ) 

400 F0RMAT(F<I1>.<I2>) 

500 FORMAT (//1 6 , 3X, ' Index :',I6,' , Column : ',14,' ,Line :', 

116, ' — Value : ' ,F14 ,6) 

600 FORMAT (/'$', 3X ,' Data to be retrieved (real or "gold") : ') 

700 FORMAT(aOAl) 

END 



SUBROUT I NE ANAD I S ( LEC , I MP , MAXD IM , N , NOCORO , NELEM , MODE ) 



C This subroutine ANADIS analyses the assignement for columns 
C or rows through a string given by the user in four modes. 



C Examples 



Comments : 



C 1 ) . * or all or ALL 

C 2 ) . 3:12 

C 
C 



take all columns or 
take • all columns 
between the lower 
bounda r i es . 



rows . 

or rows' 
and upper 
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on n n nnnnnnnnn n n nnnn 



3) . 1,3, 8, 2,1 

4) . 4 



cake successively che named 
columns or rows, even repeced 
in the given order, 
cake a single column or row. 



5 ) . 1,3,12:15,20:27,31 



mixing modes 2), and 3). 



ARGUMENTS : 

Logical numbers for input/outpuc keyboard. 
Maximum dimension for NOCORO( ) . 

Maximum number of columns (.NCOL) or rows 
(NROW) . 

Nos. of the displayed colu.mns or rows. 

Total number of elements to take (columins or 
rows ) . 

Represents a chain of characters : 'columns’ 

or ' rows ' . 

IMPLICIT INTEGER*2 (I-N) 

DIMENSION NOCORO(MAXDIM) 

CHARACTER*? MODE 
BYTE STRING (80) 

Initialization. 

NELEM=1 

Flags for evental continuation lines if last 
character= ' , ' , 

IWRIT=1 

ICONT=l 

C 

DO WHILE ( ICONT.EQ. 1) 

C 

ICONT=0 

NBEG=0 

NCAR=0 

IBEG=1 

ISER=0 

C Input string. 

IF (IWRIT.NE.O) WRITE( IMP, 100 ) MODE 
READ (LEC,200) STRING 
IWRIT=0 



LEC and IMP : 
MAXDIM : 

N : 

NCORO : 

NELEM : 

MODE : 
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nnnn n n on on 



If empty string. 



IF (STRING(l) .SQ. ’ ' ) THEN 

NELSM=0 
RETURN 
END IF 

If all colums or lines are displayed. (* or any letters. 



IF (STRING( 1) .EQ. ' * ' .OR. 

1 (STRING(l) .GE. 'A' . AND . STRING ( 1 ) .LE. 'Z' ) .OR. 

2 (STRING(l) .GE. 'a' .AND.STRING(l) .LE. 'z' ) ) THEN 

DO I=1,N 

NOCORO( I )=I 
END DO 
NELEM=N 
RETURN 
END IF 

String analysis. 



1 = 1 

DO WHILE (STRI.NG( I ) .NE. ' ') 

Control of string validity. 

IF( ( STRING ( I ) .GE. ' 0 ' .AND. STRING ( I ) . LE . ' 9 ' ) . OR . 
1 (STRING( I ) .EQ. ' : ' .OR . STRI NG ( I ) . SQ . ' , ' ) ) THEN 

ELSE 

NELEM=0 

WRITE( IMP, 400 ) 

RETURN 
END IF 

If between lower and upper boundaries (ex: 3:8). 



or/and if list of numbers (ex: 2, 5, 8, 3). 



IF (STRING( I ) .EQ. ' , ' .OR.STRING( I ) .EQ. ' : ' ) THEN 
IEND=I-1 

DECODE(NCAR, 300 ,STRING( IBEG) ) NOCORO ( NELEM ) 
IF ( NOCORO ( NELEM) .GT.N) THEN 
WRITE( IMP, 500) N 
NELEM=0 
RETURN 
END IF 

IF (STRING( I ) .EQ. ' : ' ) THEN 
ISER=1 
ELSE 

IF (STRI.NG( I ) . EQ. ’ , ' ) THEN 
IF (ISER.EQ.I) THEN 
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N3EG = NCC0R0 ( N'EIEM- 1 ) + 1 
NEND=NOCORO(NELEM) 
NELEM=NELEM-i 
DO J=N3EG,NEND 
NELEM=NELSM+1 
NOCORO(NELEM) =J 
END DO 
ISER=0 
END IF 
END IF 
END IF 
NCAR=0 

NELEM=NELEM^1 
IBEG=I +1 

ELSE 

NCAR=NCAR+1 
END IF 
1 = 1 + 1 
END DO 

If the number of delimiters is zero 

Just one column or row is displayed (ex : 4). 



IF (NELEM.EQ.l) THEN 
1 = 1-1 

DECODE( I , 300 ,STRING( I3EG) ) NOCORO(l) 
IF (NOCORO( 1) .GT.N) THEN 
WRITE ( IMP, 500 ) N 
NELEM=0 
RETURN 
ELSE 
END IF 
ELSE 



Analyse string residual. 



DECODE (NCAR, 300 , STRING ( I BEG) ) NOCORO ( NELEM) 

IF (NOCORO (NELEM) .GT.N) THEN 
WRITE( IMP, 500 ) N 
NELEM=0 
RETURN 
ELSE 

C For continuation line, if last character is 

IF ( NOCORO ( NELEM ) .EQ.O) THEN 
ICONT=l 
ELSE 

IF (ISER.EQ.I) THEN 

NBEG=NOCORO ( NELEM- 1 )+ 1 
NEND=NOCORO ( NELEM ) 

NELEM=NELEM-1 
DO J=NBEG,NEND 
NELEM=NELEM+1 



203 



NOCORO( NELEM) =J 
END DO 
END IF 
END IF 
END IF 
END IF 



C 





END DO 


c 


RETURN 


c 


Format 


100 


FORMAT 


200 


FORMAT 


300 


FORMAT 


400 


FORMAT 
1 (mus 


500 


FORMAT 




END 





A7 



’ ) 



f I 



or 
! ! ' ) 



M , II \ I 



) ' ) 



SUBROUT I NE F I CH ( NNN , NLOG I C , I AUT , DEVD I R , NAME , NENR , NB YTES , 
1 ISTAT, ACCESS, LEG, IMP) 

c 

This Subroutine permits to Open, within a FORTRAN Program 
at Run Time, specific Files named ' FORnnn . DAT ' f or 
calculation and deletion or general Files named 
'file name. ext'. These Files may be used for Unformatted 
Direct Fixed Access or Formatted Sequential Variable Access 



ARGUMENTS 



C 


'NNN' Can 


be 3 {0 


,9} 


numerical 


equivalent characte 


C 


otherwise , 


a Key (ex: 


'01 


2' , '326' , a 


key : 'G13' , 'TT2' ) 


C 


I f NNN= ' ' , 


, the File 


will 


be named as 


the content of NAME 


C 


If not , 


the File 


wi 1 


1 be named 


as ' FORnnn . DAT ' , e 


C 


' FOR012.DAT' . 









C 

C 

c 

c 

c 

c 

c 

c 

c 



NLOGIC : Logical Unit number. 

lAUT : If lAUT.NE.O, Input the 3 characters Key, the File 

is named as 'FORkey.DAT', or Input NAME. If IAUT=0, 
the File is named as 'FORNNN.DAT', or 'name' 

DEVDIR : If ' ', ask for Device and Directory-Subdirectory 

names. If ' DUAO : ' or ' DUAO :[ DIRECTORY . SUBd i r ] ' for 



204 



c 

C NAME 
C 

c 

C NENR 
C 

C KBYTES 
C 

c 

c 

c 

C ACCESS 

C 

C 

C ISTAT 
C 

C INDX 
C 

c 

c 

c 

c 

c 

c 



ex . , no change . 

If NNN= ' asks by Keyboard che name of the File, 
when IAUT,NE.O. NAME contents up to 10 characters. 

Maximum records number. 

Number of BYTES per Record, If UNFORMATED Records, 
transformation in full 32 bits Words, MUST be a 
multiple of 4 BYTES (If not, BELL rings, a message 
and a complementation occur) 

If 'DIRECT' : DIRECT, UNFORMATTED, FIXED records, 

otherwise : SEQUENTIAL , FORMATTED , VARIABLE records. 

If ISTA=0 : 'NEW”, otherwise : 'OLD' 

.Associated Variable for Unformatted Direct Access, 
not a dummy argument, it will be auto-post- 
Inc remen ted , COMMON /INDEX/INDX .must be present in 
the calling program. Be CAREFULL, INDX is common 
for all the opened files. If no COMMON /INDEX/INDX 
or Using another integer variable, no auto-post- 
Incrementat ion , when READ or WRITE. 



C*** 



'ki^'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k' 



"'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kic'^'x 



c 

C Examples : 
C 



c 

n 


NNN 


lAUT 


NAME 


QUESTION 


RESULT 


c 


' nnn ' 


0 


T 1 


None 




FORnnn . DAT 


c 


'key' 


0 


1 f 


None 




FORkey.DAT 


c 


t t 


0 


' name . dat ' 


None 




name .ext 


c 


1 t 


0 


f 1 


NAME 


7 


NAME 


c 


’ nnn ’ 


1 


1 f 


KEY 


7 


FORkey . DAT 


c 


» r 


1 


f 1 


NAME 


7 


NAME 


c 


Remark : 


Priority 


is always 


g i ven 


to 


' nnn ' or ' ke 



C present. 

C 



C 

C 

C 

C 

C 



IMPLICIT INTEGER*2 (l-N) 

CHARACTER * 3 FOR , NNN , KE Y , ST AT ,EXT*4,DEV*5, NAME "^10, 
1ACCESS*6 ,DIR*40 , DEVD I R* 4 5 , DED I NA* 5 5 , BELL*! 

COMMON /INDEX/INDX 

DATA FOR, EXT/' FOR' , ' . DAT ' /3ELL/007/ 
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c 

100 

200 

300 

400 

c 

c 

c 

c 

c 



IF( DEVOIR. SQ. ' ')THEN 
WRITE ( IMP, 100)NLCGIC 

FORMAT (' $De vice for File', 13,' (If Default : 

READ(LEC,200)DEV 

FORMAT (A5 ) 

WRITE( IMP, 300 )NLOGIC 

FORMAT( ' $Di rectory for File', 13,' (If Defaul 
READ( LEG, 400 ) DIR 
FORMAT ( A4 0 ) 

DEVDIR=DEV//DIR 

ELSE 

IF( lAUT.EQ. 0 )THEN 

I F ( NNN . EQ . ' ' ) THEN 

IF(NAME.EQ.' ' ) THEN 



500 

600 

C 

c 

c 



c 

c 

c 



c 

c 

c 



c 



WRITE( IMP, 500 )NLOGIC 
FORMAT (' $Name for File', 13,' 
READ (LEG, 600 ) NAME 
FORMAT (AlO ) 

ELSE 

END IF 

DEDINA=DEVDIR//NAME 
GO TO 1 

ELSE 

END IF 

DED I NA=DEVD I R//FOR//NNN//EXT 
GO TO 1 

ELSE 

IF(NNN.EQ.' ' )THEN 

WRITE( IMP, 500 )NLOGIG 
READ (LEG, 600) NAME 
DEDINA=DEVDIR//NAME 
GO TO 1 



G 



ELSE ■ 

WRITE( IMP,700)NLOGIG,NNN 



) 



<GR> ; ' ) 



t : <GR>) 
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700 



1 

2 



800 

C 

c 

c 



F0RMAT{/' S ' , 3X, 

1 'Kev (xxx) For File FORxxx.DAT 

2 ' , (nnn=’ ,A3, ’ ) : ' ) 

READ(LEC, 300 )KEY 
FORMAT ( A3 ) 
DEDINA=DEVDIR//FOR//KEY//EXT 
GO TO 1 

END IF 

END IF 

END IF 

Assign File to a logical Unit. 

IF( ISTAT.EQ.O) THEN 
STAT= ' NSW 
ELSE 

STAT= ' OLD' 

END IF 

Control the Access Mode : 



nuir.oe r 



I F ( ACCESS . EQ . ' D I RECT ' ) THEN 

NMOT32=INT(N3YTES/4 ) 

I F ( MOD ( NBYTES , 4 ) . NE . 0 ) THEN 

a message wanted. 

WRITE( IMP, 900 )BELL 

FORMAT (/ IX, Al, ' ER.ROR IN REC0RDSI2E ARGUMENT, ' 
'MUST BE A MULTIPLE OF 4'/) 

NMOT32=NMOT32+l 
NBYTES=NMOT32*4 
C 

ELSE 

C 

END IF 
C 

OPEN (uni t =NLOGI C , name = DED I NA , st a tus=STAT , 
laccess=' DIRECT ' , records i ze=NMOT32 , recordtype= 'FIXED ' , 
2initialsi ze=NENR , f orm= ' UNFORMATTED ' , 

3 assoc i atevar i able= INDX ) 

C 

ELSE 



If 

900 

1 
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c 

OPEN ( un i t=NLOGIC , name=DEDINA , scatus=STAT , 
laccess= ' SEQUENTIAL ' , records i ze=N3YTES , 

2 record type = ' VARIABLE ' , in i t i als i ze = NENR , f orm= ' FORMATTED ' 
C 

END IF 
C 

RETURN 

C 

END 



SUBROUTINE EXSHEL ( X , NO , N , IND ) 









C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 



Subroutine for internal and address calculation sort using 
the Shell's method to rank elements X in increasing order 
and modified for address calculations. 

ARGUMENTS : 

X : Elements to sort. 

NO : Address calculation for the rank. 

N : Number of elements to sort. 

IND : If >0 elements are ranged in increasing order, if 

not, in decreasing order. 

Reference : Shell Donald L. (1959) : "A High-Speed Sorting 

Procedure", Comm of the ACM, vol.2, July, 
p. 30-32 . 



ic if "k if ic ic -k ~k 



k'k'k'k'k'kk'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-kkkk'k'k'k'k'k'kk-k'kk 



c 



IMPLICIT INTEGER*2 (I-N) 



Elements X and TEMP can be declared as-: 
INTEGER *2 or *4, REAL *4, *3, *16 , CHARACTER 



REAL*4 X(N),TEMP 
DIMENSION NO(N) 



NO ( I ) = I 



M=N 

M=M/2 

C 

DO WHILE(M.GT. 0 ) 

DO 5 K=1,M 
NMM=N-M 

DO 4 I=K,NMM,M 
J=I 
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2 



I?M= I 

TEMP = X(I?M) 

N0TEM? = N'0( I PM) 

I F ( I ND . GE . 0 ) THEN 

I F ( TEMP , GT . X ( J ) ) GO TO 3 
ELSE 

I F ( TEMP . LS . X ( J ) ) GO TO 3 
END IF 
JPM=J+M 
X (J+M)=X (J) 

NO( JPM) =NO( J) 

J=J-M 

IF(J.GE.1)G0 TO 2 
3 JPM=J-^M 

X( JPM)=TEMP 
NO ( JPM )= NOTEMP 
CONTINUE 
CONTINUE 
M=M/2 

END DO 
. RETURN 
END 



SUBROUTINE EXSHl ( X , NO , N , I ND ) 

IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 X(N),TEMP 
DIMENSION NO(N) 



NO ( I ) = I 

M=N 
M=M/2 
C 

DO WHILE(M.GT.O) 

DO 5 K=1,M 
NMM=N-M 

DO 4 I=K,xNMM,M 
J=I 

IPM=I+M 

TEMP = X( IPM) 

NOTEMP=NO( IPM) 

2 ■ IF( IND.GE. 0 )THEN 

IF(TEMP.GT.X(J) )GO TO 3 
ELSE 

IF(TEMP. LE.X( J) )GO TO 3 
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3 



4 

5 



C 

c 



END I? 

JPM=J^M 
X (J+M)=X (J) 

N0( JPM) =N0( J ) 
J=J-M 

IF(J.GE.1)G0 TO 2 
JPM=J+M 
X( JPM)=TEMP 
NO ( JPM) = NOT EM? 
CONTINUE 
CONTINUE 
M=M/2 



END DO 
RETURN 
END 



SUBROUT I NE ENSORT ( N I N , NOUT , NPR I NT ) 

C 

This subroutine permits Input/Output modifications or 
assignments for physical Input or/and Output, or/and Print 
for Devices or Files within a FORTRAN Program or Subroutine 



ARGUMENTS 



NIN and NOUT are the respective Logical FORTRAN 
numbers for Input and Output (for Terminal 
in general) and NPRINT for Print (for Printer 
in general, but may be used for Terminal Output 



or File output ) . 
SUBROUTINE called : 

I NOUT ( NLOG I C , I , MODE ) 
IMPLICIT INTEGER*2 (I-N) 



Call for Input. 

CALL INOUT(NIN, 1, 1) 
Call for Output. 

CALL I NOUT (NOUT, 2 , 0 ) 
Call for Output-Print. 
CALL I NOUT (NPR I NT, 3 , 0 

RETURN 

END 
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SUBROUT I NE I NOUT ( NLOG I C , I , MODE ) 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 






This Subroutine permits to OPEN Devices or/and Files to 
associate within any FORTRAxN Program or Subroutine at RUN 
t ime . 

ARGUMENTS : 

NLOGIC : FORTRAN Logical number associate to the unit to 
OPEN, (NIN, xVOUT, NPRIxNT in the calling module). 
I : Index (1): Input, (2): OUTput (for terminal in 

general), (3) : Print-Output (for Printer or 

File in general ) . 

MODE : (0): 'NEW', (1): 'OLD', otherwise: 'unknown'. 



SUBROUTINE Called : None. 



IMPLICIT INTEGER*2 (l-N) 

C 

CHARACTER*40 KEY,NUL 

C KEY is Accept via the Keyboard at RUN time. 

CHARACTER* 2 8 DEV ( 3 ) 

C DEV() is Typed on the Terminal in fonction of I. 

CHARACTER* 3 STA ( 3 ) 

STA( ) is referenced as 'NEW', 'OLD' or 'unknown' in fonction 
of MODE. 

DIMENSION NSYS( 3) , INCOM( 3) 

NSYS() represents the general used logical numbers 

Input, Output and Print; INCOM(), the relative 
incompatibility for the NSYS()'s. 

DATA NUL/' '/ 

DATA DEV/' Input Device (or File) : ', 'Output Device 

1 (or File) : ',' Print Device (or File) : '/ 

DATA STA/ ' NEW' ,' OLD' , ' '/ 

DATA NSYS/5 , 6 , 6/INCOM/6 , 5 , 5/ 

Incompatibilities Input with Output in general. 

IF(NLOGIC.EQ.NSYS( I ) ) RETURN 

IF(NLOGIC. GT.O. AND. NLOGIC. NE. INCOM( I ) )GO TO 1 
NLOGIC=NSYS( I ) 

RETURN 
C On System Terminal. 

1 TYPE 100,DEV(I) 

100 FORMAT(/'$ ',A28) 

ACCEPT 2 00, KEY 
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200 rORMAT(A40) 

I F ( KEY . SQ . NUL ) RETURN 
C If Change. 

CLOSE(NLOGIC) 

I F ( MODE . LT . 0 . OR . MODE . GT . 2 ) MODE = 2 

OPEN(unit = NLOGIC, f i Le = KEY , s t ai:us=STA ( MODE+ 1 ) ) 

RETURN 

END 






SUBROUTINE REJECT (LEC, IMP,NROW, IJ , I ND , I , I B I T , I OPEN, 
1 ICLOSE) 



c 

C Subroutine for rejection of rows ("logical suppression"); 
C these rows are not physically suppressed but are just 
C elliminated from future calculus if the Ith. row is 
C associated to the binary value zero store in the assigned 
C rejected values support "binary" sequential file given by 
C the user. 

C 

C ARGUMENTS : 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



LEC, IMP ; Input/Output logical numbers for Terminal. 

NROW : Total number of rows for the Data matrix 

NCOL*NROW. 



IJ 

IND 

I 

IBIT 

lOPEN 

'ICLOSE 



: Integer array that contains compressed binary 
information for rejection. 

: If IND=0 : to examine bits level. 

If IND=1 : to load bits level. 

: Ith examination if IND=0. 

: Bit value 0 or 1 to return if IND=0. 

: If equal to 1, to open a sequential file to 
store [0,1]. 

: If equal to 1, to close the sequential file. 



SUBROUTINES called : COMPOl for binary compression, 

3IT01 for bits manipulation. 



'k'k-k'k'k'k'k'k-k'k-k'k-k-k'kic'k-k-k'k'kic'k'k'k-kic'k^k'kic-k-k-k-k'kic'k'k-k-^'if: 



IMPLICIT INTEGER*2 (I-N) 

C Compression : dimension of IJ() = 2048/NBITW zo read a 

C single record. 

INTEGER* 2 NOROW ( 2048 ),NO(2048),IJ(128) 

CHARACTER* 4 5 DEVD IR , NAME * 1 0 
CHARACTER *7 MODROW 
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DATA DEVDIR,NAME/' DUAO V 

DATA MODRCW/ ' rows ' /LCGSUP/3/NC0LS , J/2 * 1/N3 I TW/ 16/ 

MAXD I M= ( NROW* NCOLS - 1 ) /N3 I TW- 1 

IE (IND.EQ.l) THEN 

IF (lOPEN.EQ.l) THEN 

Assign rejected rows support "binary" sequential 
file according to the WRITE FORMAT 300. 

WRITE( IMP, 100) 

CALL FICH (' 076 LOGSUP, 1 , DEVDIR, NAME, 1 , 1024 , 0 , 

1 ' SEQUENTIAL' , LEG, IMP) 

END IF 

Select rejected rows ("logical suppression"). 

WRITE( IMP, 200) 

CALL ANAD I S ( LEC , IMP , NROW , NROW , NO.ROW , N3R0W , MCDROW ) 

Initialization : Set all values to 1. 

CALL COMPOK I J,. MAXD I M, NCOLS, NROW, I ,J, 1,N3ITW, 1,1) 

Change selected rejectable values to 0. 

DO L=1,N3R0W 

CALL COMPO 1 ( I J , MAXD I M , NCOLS , NROW , NOROW ( L ) , J , 0 , 

1 NB I TW , 2 , 1 ) 

END DO 

WRITE (LOGSUP, 300) IJ 
ELSE 

IF (lOPEN.EQ.l) THEN 

Assign rejected rows support "binary" sequential 
file according to the WRITE FORMAT. 

WRITE( IMP, 100) 

CALL FICH( ' 076 ' , LOGSUP, 1 , DEVDIR , N.AME , 1,1024,1, 

1 ' SEQUENTIAL’ , LEC, IMP) 

READ (LOGSUP' 300) IJ 
END IF 

CALL COMPOK IJ, MAXD I M, NCOLS , NROW, I , J , I 3 I T , N3 I TW , 2 , 0 ) 
END IF 

IF ( ICLOSE.EQ. 1) CLOSE(LOGSUP) 



RETURN 

100 FORMAT ( /4X Ass ign sequential file for rejected values' 
1/4X,42( '-' ) ) 

200 FORMAT (/'$', 3X ,' Ass ign rejected rows for calculus : ') 

300 FORMAT( 16(818/) ) 

END 

ic iK i< i>: 'k :k :k :k :k :k :k iK ic i< if ic i< iK 'k i< i< if i< i< -k i< i< -k ic i< :k 

SUBROUTINE COMPOK I J , MAXD I M , NCOL , NROW , I , J, I3IT,NBITW, 
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1 I N I , I ND ) 



C 

c 

c 



This 
1 in 
J' s. 



subroutine is 
a compressed 



used to get or 
binary matrix 



set the binary value 0 or 
NRCW*NCCL for any I's and 



C ARGUMENTS : 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



IJ : Integer one machine word by elem.ent that 

represents the stored binary values (0,1). 
Dimension of the compressed table IJ(). 

Maximum value for the J's, (number of columns). 
Maximum value for the I's, (number of rows). 

Actual value for I and J. 

Set of return the binary value. 

Number of bits per word (16, 32, 36). 

If 0 or 1, initialize to one of these values, 
otherwise, no action. 

IND : If IND=0 : examine bits level and return the value 
IBIT, 

If IND=1 : Set bit level to the current IBIT. 

SUBROUTINE called : BITOl for bits manipulations. 



MAAUiM 

NCOL 

NROW 

I, J 
IBIT 
NBITW 
INI 



'k'k'k'k'k'k-k-k-k'k'k'k'k'k'k'k'k'k-k'k-k-k'k'k'k'k-k'k'k'k-k-k'k-k'k-k-k-k'k-k-k'k-k'k'k-k-k-k-k-k-k 



IMPLICIT INTEGER*2 (I-N) 

INTEGER* 2 IJ(MAXDIM) ,3ITSET(36) , BIT (36) 
Initialization to 0 or 1. 



INIT=0 

IF ( INI .EQ.O.OR. INI .EQ. 1) THEN 
IF ( INI .EQ. 1) . INIT=-1 
DO K=1,MAXDIM 
IJ(K)=INIT 
END DO 

ELSE 

Process to examine or set bits for the actual I's and J's. 



PHASE I : Calculate bit no. : NOBIT, index NOW of the one 

word array IJ() and position NOPOS in the word 

( 1 to NBITW) . 

NOBIT=J+NCOL*( I-l) 

NOW =(NOBIT-l ) /NBITW+1 
NOPOS=NOBIT- (NOW-1 ) * NBITW 
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PHASE II : examine and return I3IT or set to I3IT for any I 
and J . 

C Set the correct bit to the value IND, without effect on che 
C other bits of IJ(NOW). 

IF (IND.EQ.I) THEM 
DO K=1,NBITW 
3ITSET(K) =2 
END DO 

BITSET(NOPOS) =I3IT 

CALL BITOl ( IJ(NOW) , IND,3IT,3ITSET,N3ITW) 

ELSE 

C Examine the correct bit value of IJ(NOW), 

CALL BITOl ( IJ(NOW) , IND,BIT,BrTSET,N3ITW) 
IBIT=BIT(MOPOS) 

END IF 
END IF 



RETURN 

END 

i<: ic ic ic ic iK ic ic i< ic -K -X 

SUBROUTINE BITOKi, I ND , B I T , B I TSET , NB ITW ) 

C Machine independent subroutine to examine or set to a value 
C 0 or 1 the bits of any machine word equivalent to a given 
C integer I. 

C 

C ARGUMENTS : 

C 

C NBITW : 

C 

c 
c 

C I : 

C IND : 

C 

c 
c 
c 

C BIT () : 

C BITSET() : 

C 

c 
c 
c 



Number of bits per machine word or considered by 
the system. For the VAXll, NBITW=16 and 

INTEGER*2 . ( NBITWth 9th, 8th, 7th, 6th, 5th, 

4 th , 3 th , 2nd , Ind ) 

INTEGER (NBITW bits) (ex.: NBITW=16, 32 OR 36) 
If IND=0 : examine the .NBITW bits level and 

store the result in BIT(). 

If IND=0 : set the .NBITW bits level of I 

according the elements of 3ITSET() eoual to 0 or 

1 . 

Give the content of the NBITW bits of I. 

If the content is 0, set the corresponding bit of 
I to 0 , 

If the content is 1, set the corresponding bit of 
I to 1 , 

otherwise, no effect on the integer I. 
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C 

C REFERENCE : 

C 

C GUINIER D. (1983) ; High level multilanguage machine- 

C independent programmat ion (16, 32, 36 bics) : A 

C subroutine for bits manipulations in 3ASIC and 

C FORTRAN IV. DECUS , RTll SIG, Mini-Tasker, vol9, 

C no. 4, 10-1983. 

C 



•-k-kic'k'k-k-k'k-k-k-k'k'k-k-k-k: 






IMPLICIT INTEGER*2 (l-N) 



INTEGER*2 B ITSET ( 3 6 ) , 3 1 T ( 3 6 ) 



PHASE I : Search of the bits' level for the field integer I. 



Examination of the bits level of the integer I. 

NBR=NBITW-1 

IP=I 

BIT(NBITW) =0 
IF(IP.LT.O) THEN 

IP is previously a negative integer. 

B I T ( NB I TW ) = 1 
IP=IP+2 . ** (NBITW-1 ) 

END IF 

IP is a positive integer. 

DO J = l,xNBR 

BIT(J)=MOD( IP, 2 ) 

IP=IP/2 
END DO 

IF (IND.EQ.O) RETURN 

PHASE II : Possible changes of the actual level of the bits. 



Set bits of integer I to 0 or 1 if required. 
DO J=1,NBITW 

IF (BITSET(J) .NE.O) THEN 

IF (BITSET(J) .EQ. 1 ) THEN 
BIT (J)= 1 
BITSET(J)=-1 
END IF 
ELSE 

BIT (J)= 0 
BITSET( J)=-l 
END IF 
END DO 
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PHASE III : Releasing of a nev field integer I afzer change 



of levels. 



Integer I reconstitution using Horner Scheme. 

I=3IT(NBR) 

.^I=N3R-1 
DO J=N, 1,-1 

I=I*2+3IT(J) 

END DO 

C If I is a negative number. 

IF (3IT(NBITW) .EQ. 1) I = I - 2 . * * { N3 I TW- 1 ) 

RETURN 

END 
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